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I. 



INTRODUCTION 



A. BACKGROUND 

This project, which has been funded by PME 106-1 of the 
Naval Electronic Systems Command (NAVELEX) , is part of a 
series of Radio Frequency Interference (RFI) measurements 
and analysis undertaken by the Satellite Communications 
(SATCOM) Laboratory of the Naval Postgraduate School (NAVPG- 
SCOL) . Previous efforts include evaluation of the AS3018/- 
WSC-1 (v) shipboard SATCOM antenna / — 1 _7, preparation of a 
shipboard RFI measurement package / 2-5_/, evaluation of 
shipboard RFI / 6 construction of a shipboard RFI simu- 
lator / 7 / , and measurement of shipboard SATCOM terminal 
performance in the presence of specific RFI sources / 8-10_/. 

In March of 1977, this laboratory received funding from 
PME 106-1 to develop, design and construct a SATCOM Signal 
Analyzer at NAVPGSCOL. The purpose of this system is to 
provide high-speed spectrum analysis and characterization of 
the outputs of ultrahigh frequency (UHF) communication sat- 
ellite transponders while operating in orbit. This system 
is to develop techniques for use in the design of a SATCOM 
monitoring system for use in Naval Communication Stations. 

The first reports on this effort include receiver design for 
the satellite signal analyzer /~ 11 _J , digital control and 
processing for a satellite communications monitoring system 
/ 12_/, and hardware development for the satellite signal 
analyzer / — 13 J. 
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B. SPECIFIC GOALS 



The specific goals in the development of this system is 
(1) to develop the necessary equipment to make real-time 
signal measurements at the Naval Postgraduate School, and (2) 
to provide the necessary research and development of real- 
time signal analysis techniques and equipment for use in a 
follow-on version of the Fleet Satellite Communications 
Spectrum Monitor (FSM) presently in use at Naval Communica- 
tions Stations to monitor the operations of the Fleet Sat- 
ellite (FLTSAT) and GAPFILLER satellites. 

C. SCOPE OF THIS PROJECT 

This report documents the software development of spec- 
trum analysis control as an applications program. Beyond 
the documentation, an important aspect of this report is a 
description of the various procedures used to work the 
SATCOM Signal Analyzer (SSA) . 
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II. SATCOM SIGNAL ANALYZER 



A . COMPONENTS 

The SSA is constructed around an Interdata 7/32 minicom- 
puter which provides control for most of the equipment in the 
system. Control of some counters and frequency synthesizers 
as an interim measure is achieved by the Hewlett-Packard 
9830A programmable calculator. A few control functions are 
done manually. There are three primary lines used in the 
SSA for the purpose of control and digital data. They are 
the IEEE standard digital interface bus (IEEE 488) , for 
communication with all Hewlett-Packard and Systron Donner 
equipment; the RS-232C standard data communication link, 
for communication with most I/O devices; and the Interdata 
modified interface bus / — 12 The reference frequencies 
to all measurement and synthesized equipment is provided by 
a Hewlett-Packard 5061A cesium beam frequency standard. The 
probe, main, and spectrum receivers are the first points 
where the analog signal come under computer control. At 
these points digital information is obtainable for all re- 
ceivers except the spectrum receiver. Although the spectrum 
receiver is under computer control, the analog signal is 
digitized only in the data acquisition unit (DAU) . Once the 
analog information has been converted to some form of digi- 
tal information then mathematical algorithms further mani- 
pulate the information in the Floating Point Systems AP-120B 
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array processor. The Fast Fourier Transform (FFT) is just 
one of many algorithms that are implemented in the AP-120B, 
but certainly the FFT is the one of primary note. The last 
components of the SSA perform the function of I/O. In most 
cases the Tektronix 4014 terminal is providing information 
about spectrum or probe analysis, whereas the printer, disc, 
and tapes are devices for mass storage, utilities, and pro- 
gram development. 

B. SIGNAL FLOW AND CONVERSION 

Figure 2-1 shows the SSA signal flow and conversion. Al, 
the RF Group, has a number of functions. The RF Group 
serves as the SSA front end. The RF Group distributes the 
received signal to the AN/WSC-3 receiver, the A2 blanker and 
downconverter , and the HP 8554B spectrum analyzer. The RF 
Group transmits signals. Transmission is from the AN/WSC-3 
transmitter and the A20 Probe Transmitter. The RF Group pro- 
vides satellite transponder simulation. These functions are 
not under computer control. All signals are analog. 

The second channel in the signal flow is the A2 Blanker/ 
Downconverter. This unit provides frequency translation of 
the received RF to a first intermediate frequency band of 
60-90 MHz. It also delays the received signal until the 
blanker channel can perform the blanking logic. Control of 
this unit is manual. The signal is still in analog form. 

Al and A2 do not have computer control, nor do they need 
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SSA SIGNAL FLOW AND CONVERSION 





it. Their operations are discussed in / — 13 _/• It is at the 
receivers that the first elements of the SSA come under com- 
puter control. The probe receivers (A10 and A12) and the 
main receiver A6 operations are discussed in / 11 and 14_/. 
These receivers are under control via the control bus vice 
RS-232 or IEEE 488. The local oscillators to the receivers 
are under computer control via either the IEEE 488 and HP 
9830A or the control bus depending on the frequency synthe- 
sizer. For Al 0, A12 , and A6 the primary information, fre- 
quency, is derived by electronic counters. It is at this 
point that analog information is converted to digital infor- 
mation. The counters are indicating frequency. The HP 9830A 
has the ability to read the counters and the Systron Donner 
clock. This information can be stored on tape and manipu- 
lated either by the Interdata 7/32 and AP-120B or by the 
HP 9830A alone. 

The spectrum receiver is different. It is the first 
point of computer control for the analog signal that is to 
be used to derive spectrum. But there is no conversion to 
digital information in this receiver. Instead there exists 
the ability to choose different receiver channels. These 
channels, so as not to confuse them with the satellite 
channels, will be referred to as Spectrum Receiver Channels 
(SPCHNL A, B or C) . There are also variable filters that 
may be chosen for spectrum receiver channel C. The filter 
bandwidths of these filters are 3kHz, 10kHz, 30kHz, 100kHz, 



16 



and 114Hz. The third parameter to the receiver that may be 
changed is the attenuation. 0-12 7dB of attenuation can be 
controlled by the computer, and 0-59dB can be set by manual 
means. The analog signal basically is modified by this 
receiver by down conversion to 30MHz f by filtering, and by 
attenuation. The A26 data acquisition unit (DAU) modifies 
the signal further by down conversion to base band and then 
doing analog to digital conversion. It is here that the 
analog signal is converted to a digital form. 

Digital information is available to the host computer 
for processing from the HP 9830A or from the DAU. (There is 
a software oriented problem associated with the HP 9830A. 

The software driver is the original driver written for the 
HP 9830A for the purpose of demonstration and feasibility. 

It has not been changed since. The problem experienced is 
that when taking data from the HP 9830A the Interdata 7/32 
and HP 9830A get out of synchronization. When operating 
under one operating system only about one hour of communica- 
tion is observed before synchronization is lost. With the 
same driver in a different operating system the synchroniza- 
tion is lost after about a minute. Two IEEE Instrumentation 
Bus Controllers have been delivered and will replace the 
HP 9830A as a controller. It is expected that when the 
driver for these controllers is written that the present 
problem associated with HP 9830A will be solved.) The digital 
information is then processed by an array processor (Floating 
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Point Systems AP-120B) . The results of this processing are 
then available for storage or display. Storage can be done 
on cassette tapes, 2.5 M byte disc, and 9-track magnetic 
tape. Display can be observed in graphic form on the Tek- 
tronix 4014 terminal. The Tektronix terminal has enhanced 
graphic capabilities and can operate at 154 K baud. A hard 
copy unit is connected to the Tektronix terminal. Other 
display devices include a high speed printer, teletype, and 
keyboard/CRT system. 

Increasing throughput by reducing the time that the host 
computer uses to provide communication between the source of 
the digital information and the point of processing is desir- 
able. This can be achieved by directly interfacing the DAU 
to the AP-120B. The nature of the information from the 
probe and main receiver does not require this interfacing. 

The option of directly interfacing the DAU to the AP-120B 
requires some hardware modifications to the DAU /~ 15_/ and 
a software package for the AP-120B. The hardware modifica- 
tions are complete. The software development is still in 
progress . 

C. METHOD OF COMPUTATION (SPECTRUM) 

For cohesiveness, the method of computation and capa- 
bility some of which was presented in / 12, 18_/, are now 
presented. Dual channel, inphase and quadrature, down con- 
version of the signal is used to produce two baseband sig- 
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nals which are sampled simultaneously, held and analog-to- 
digital converted to form the "real" and "imaginary" com- 
ponents of a complex waveform. The bandpass characteristics 
of the RF are all preserved as demonstrated below and illus- 
trated in Figure 2-2. 

Local Oscillator Signal: Cos(ai t) 

RF (or IF) Signal: X(t) h 

"In-Phase" Component: I (t) =Cos (w, t) x (t) 

"Quadrature Phase: Component: QTt) =sin (u) T t) x (t) 

Combining as "real" and "imaginary" components of a "complex 

signal : 



y(t) = I(t) + jQ ( t) 

= cos (to T t) x ( t) + jsin (a)_t)x(t) 

Li Li 

= /cos(co T t) + jsin (to T t) /x (t) 

= exp( joo L t)x(t) 

and taking the Fourier transform, 

F/y ( t) 7 = F/exp ( ju)_ t) x (t ) 7 

“ ” “ , L “ ( 1 ) 

= F x (a J - t o L ) 

Thus, the D.C. component in the baseband is the component in 
the RF signal at the frequency of the local oscialltor. Con 
tinuing from Equation 1: 

CO 

F/y(t]_7 = y (f ) = / x (t) exp ( j 2irf L t) exp ( j 2-rrf t) dt 

— 00 

00 

= / x(t)exp ( — j 2 tt ( f — f _ ) 

L 

Restated as the discrete Fourier transform (DFT) : 

(KAf) = n=N= l 

•^d Sx(nx) exp (- j 2iTKAfnT ) 

n=0 
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Dual Channel Down-Conversion Technique. 



letting 

Af 



_ 2 _ 

NT 



y d (kAf) 



n=N-l 



Kn. 



= Zx(nT)exp(-j2Tr— ) 
n=0 



( 2 ) 



Where N = number of samples 
t = sampling interval 

Af = spacing of the equally spaced k discrete 
elements of the spectra 

K = 0, 1, 2, — N-l 

y d (kAf) is the frequency spectrum composed of K discrete ele- 
ments having magnitudes able to be calculated from equation 
(2). x(nt) is the signal, a time domain function, from which 
data have been acquired in the form of N sampled amplitudes, 
the samples being taken once every x seconds. The sampling 
rate or sampling frequency is 1/x samples/second. 

The DFT still presents problems in that it requires 
lengthy calculations. The calculations can be reduced by 
use of the Fast Fourier Transform (FFT) algorithm. Many of 
the terms created by substituting integral values of n and k 
into equation (2) are identical due to the exp (- j 2ukn/N) 
expression which is inherently periodic. 

Continuing by rewriting equation (2) : 

N_1 2-rr 

y (k) = Zx (n) exp (- j-^j-nk) 

n-0 
2 TT 

replacing exp(-j— ) by W we have 
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y(k) 



N_1 nk 
= Zx(n)W nK 

n-0 

As can be seen that for each sampled data value input, a 

summation informed of the product between the original data 

sample and each sine/cosine values represented by one com- 

nk 

plete circulation of the rotating parameter W . W can be 

N 

considered a point of the unit circle, and W is also a 
point on the circle with an angle n times the angle of W. 

The above general FFT algorithm is used in the SSA for 
Spectrum Analysis. 

D. CAPABILITIES (SPECTRUM) 

The capabilities of the SSA are now summarized. Digital 
sampling is done at baseband frequencies while retaining all 
passband information. There is no time ambiguity in that 
all frequency components existed throughout the sampling 
period. As a comparison, the present FSM uses an analog 
spectrum analyzer with a scanning display so that each fre- 
quency component is sampled at a different time with possible 
several seconds between start and completion of scan. This 
method can produce misleading presentation, especially when 
using Time Division Multiple Access techniques in the sat- 
ellite channel assignments with access .time measured in se- 
conds . 

If blocks of data are processed, the size of the block 
determines the frequency resolution achieved while performing 
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the FFT process (this is the case with the SSA) . Spectrum 
Analysis can be thought of as presenting the time domain 
signal to a bank of narrow-band filters each of which is 
tuned to a different frequency. Resolution is limited by 
the bandwidth of the individual filters. Each filter is Af 
hertz wide (equation 2, Section C) and will vary with N and 
the sample rate. The result of the FFT is accurate at 
multiples of Af or where the spectral component occurs at the 
peak of the individual filter. Any frequency component that 
is not a multiple of then occurs somewhere along the skirt 
of the filter down to a minimum corresponding to a frequency 
centered between two adjacent filters. Typically, this error 
is a maximum of 4 . 2dB for rectangular weighting. This has 
the appearance of a "picket-fence" which refers to an appar- 
ant amplitude error vs frequency for periodic signals. Trans- 
lating this to the SSA, the maximum number of samples, N, 
per block is 2048. The highest sample rate for ADC is 4 MHz. 
Therefore, a worst case 2kHz frequency resolution can be ex- 
pected (2kHz = 4MHz/2048) . Aliasing can occur if the signal 
chosen is larger than 1 /t. The signal being analyzed must 
be filtered to the desired spectral bandwidth. The spectrum 
receiver has this capability. Presently, a frequency resolu- 
tion of 500Hz can be realized when examining the 1MHz satel- 
lite bandwidth. For individual channels a block size of 256 
and a sample rate of 10kHz are used to give a frequency 
resolution of 40Hz. 
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III. COMPUTER CONTROL OF THE SATCOM SIGNAL ANALYZER 



A. INTRODUCTION 

The purpose of the SATCOM Signal Analyzer (SSA) is to 
provide the user a means of doing spectrum monitoring con- 
tinuously and permit a method of making changes in the spec- 
trum processing with ease. 

The control of the SATCOM Signal Analyzer is the result 
of the integration of the hardware and software into one sys 
tern. This is only the first iteration. Developing opera- 
tional concepts is evolutionary. In that the process is 
evolutionary, what is presented at this time is the SATCOM 
Spectrum Analysis System as it exists. Modification to the 
basic programs are contained in Appendix V. 

First, some concepts that were in mind during the pro- 
gram development are presented. The software involved with 
the SATCOM Spectrum Analysis is considered to be part of a 
system. The systems architecture is the process of parti- 
tioning a large software system into smaller pieces. These 
pieces have a variety of labels such as programs, components 
sub-systems and levels of abstraction / — 17 _J . This software 
system represents a set of solutions to a set of distinct 
but related problems. The distinction between programs and 
system will rely on intuition, because there is no precise 
definition. What will be presented will be the objectives 
of the system, an overview of how the objectives are accora- 



24 



plished and lastly, an examination of the set of distinct 
solutions to the problem of spectrum control. 

B . OBJECTIVES 

The objectives of the SATCOM Signal Analyzer are: 

1. To receive operator parameters from a device. 

2. To perform spectrum analysis on a given signal based 
on the user's parameters. 

3. To produce the results in graphic form. 

In addition the system must be device-independent (as much 
as possible) and therefore portable. 

C. ACCOMPLI SHMENT 

These objectives have been accomplished. The accomplish- 
ment has been achieved by development of four components. 
Figure 3-1 demonstrates their perspective. The components 
are, information in, control of devices, process of data, 
and information out. The processing of data and information 
out components have been documented in / — 16 _/• Evolutionary 
programs to replace those in / — 16 _7 are still in progress. 

The latest tests of these programs are contained in Appendix 
V. The process of receiving information and then performing 
control are grouped into one program. 

D. SPECTRUM CONTROL STRUCTURE AND ORGANI ZATION 
1. Introduction 

The program Spectrum Control (SPECTRL) has the objec- 
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tives of (1) receiving information from a user via a device, 
(2) performing control of different devices, and (3) trans- 
lation of information received. Information used in this 
section means control information vice signal information. 

The device that is normally used to input information to the 
system is the C4 panel. The C4 panel is shown in Figure 3-2. 
Control of the spectrum receiver, local oscillators, and 
status devices (C4 panel and status display CRT) are per- 
formed in this program. Where as control parameters for the 
AP-120B, Tektronix 4014, and DAU are passed to the compon- 
ents doing the processing and displaying of data. The Spec- 
trum Receiver is shown in Figure 3-3. Splitting the actual 
control up has been done for two reasons. In the case of 
the Tektronix terminal and the AP-120B, no control actually 
takes place, but rather parameters are passed. The parame- 
ters are either indices for looping or reference points for 
graphics on the Tektronix screen. In the case of the DAU, 
it has been found that setting all the required registers 
just before acquisition is prudent. But extensive experi- 
menting in this area has not been done. It might be shown 
that present acquire routines could be split up. That is, 
the different registers of the DAU could be set at different 
times. The translation of the control information is all 
done in SPECTRL. 

Figure 3-4 shows the linkage between the various 
programs of the SATCOM Spectrum Analysis System. SPECTRL 
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Figure 3. 
C4 Panel 
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Figure 3.3 
Spectrum Receiver 
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SATCOM Signal Analysis System: Linkage 



provides the control information and performs control. On 
conditions set by commands the control information is passed 
as parameters to the SATCOM program by the program MAIN. 

MAIN is a command processor and linker. SATCOM presently 
controls the DAU, processes the data and performs the I/O. 

At this level only three programs have been mentioned - 
MAIN, SPECTRL, and SATCOM. (Initialization is done in MAIN) 
It is significant that SPECTRL can interrupt at anytime to 
provide information. A discussion of the two programs not 
yet documented follows. Although under the heading Spec- 
trum Control and not a subprogram of SPECTRL, MAIN is an 
integral part of Spectrum Control and is presented first. 

2 . Command Processor and Linker - MAIN 

The purpose of MAIN is to (1) initialize the SSA for 
spectrum analysis, (2) inform the user of the current status 
(3) respond to interrupts from the C4 panel, (4) operate on 
commands, and (5) pass information to the SATCOM program. 
This is done by two major subprograms and a number of small 
subprograms. The two subprograms are LINK and BLOCK DATA. 

At this time. Table I must be introduced. It is a 
listing of the variables used. Later is this section the 
variables will be mentioned. Introducing the variables when 
first mentioned and stating their purpose will confuse the 
reader. Instead, all variables are introduced in Table I, 
and the reader is encouraged to refer to this table in order 
to follow the documentation. 
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TABLE I 



Variable Name 
LGTAB (78,10) 



I DEV 

NUM 

DECMPT 



VARIABLES FROM PROGRAM SPECTRL 



FORTRAN Format Description 

1*4 An array used for the pur- 

pose of a dynamic legal 
entry table. The columns 
of the array represent the 
legal state which the panel 
is in. The rows of the 
array represent a button 
number. If the value of 
LGTAB (I,J) is 1, then the 
pushing of the button will 
not be in error. IF LGTAB 
(I,J) is a zero then the 
pushing of the Ith button 
will cause entry into the 
illegal button entry hand- 
ler. The J index is changed 
depending on which buttons 
were pushed. For example, 
the pushing of "CTR FREQ" 
will cause the state to 
change so that only the num- 
ber pad buttons can be en- 
tered. In this way dynamic 
lockout is achieved. 

1*4 Used to represent the de- 

vice number in the KTL rou- 
tines. The spectrum re- 
ceiver IDEV is 5 for ex- 
ample. 

1*4 Used to represent the num- 

ber of the button on the C4 
panel that was pushed. NUM 
for RUN is 72. 



LOGICAL Used to set a flag so that 

decimal fraction numbers can 
be entered from the number 
pad. It is set true when 
the (decimal point) is 

pushed on the number pad; 
otherwise, it is false. 
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TABLE I (con't) 



Variable Name FORTRAN Format 
NUMBER ( 16) 1*4 

NUMREG 1*4 



PT 


1*4 


POWER 


1*4 


PONTR 


1*4 


JFREQ 


1*4 



REMBER 1*4 



Description 

An array used to decode the 
buttons in the number pad, 
i.e. a-look-up-table . 

Used to store the integer 
value of the number being 
entered via the number pad. 
It is updated each time a 
number is pushed and cleared 
on the "ENTER" and "CLEAR 
ENTRY" buttons. 

Used to locate the position 
of the decimal with respect 
to the number of number 
buttons that have been 
pushed . 

Used to raise the number 
register to a power in base 
10 . It is set to 0 , 3, 6 
by the "Hz", "kHz", "MHz" 
buttons . 

Used as a stack pointer 
for the legal state. 

Used as the column index for 
IFREQ . JFREQ is the selec- 
tion of the frequency plan 
1 for GAPFILLER 2 for FLTSAT 
A, 3 for FLTSAT B and 4 for 
FLTSAT C. It is set by the 
frequency row on the C4 
panel. 

Used to hold the value of 
NUM when more information 
is required. Example - the 
pushing of IFATN means that 
a number between 0 and 127 
is going to be entered via 
the number pad . The Legal 
Table ( LGTAB ) must change 
to permit the entry of num- 
bers from the number pad. 
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TABLE I (con't) 



Variable 



INDEX 



IIFREQ 



LPFBW 



IFATN 



IFREQ ( 20 



CMD 



HOLD 



Name FORTRAN Format Description 



1*4 



1*4 



REAL 



1*4 



4) 1*4 



1*4 

1*4 



After these numbers are 
entered they have to be 
linked to the IF attenua- 
tion control. This is done 
by remembering which button 
number was pushed. REMBER 
accomplishes this. 

Used to convert the value 
of REMBER for use in a com- 
puter GO TO. 

Is the frequency in tenths 
of hertz for the Fluke 
synthesizer - passed via the 
KTLWR subroutine. 

Is the bandwidth for the low 
pass filter bandwidth of the 
Rockland Filter passed via 
the KTLWR subroutine. 

Is the value of the inter- 
mediate frequency attenua- 
tion of the spectrum re- 
ceiver passed via the KTLWR 
subroutine . 

Is an array of the fre- 
quencies used in the FLTSAT 
and GAPFILLER satellites. 

The columns are the fre- 
quency plans and the rows 
are the individual channels. 
Note in GAPFILLER that Nar- 
row Band A and Narrow Band 
B satellite channels have 
channel numbers 21 and 22 
respectively . 

Is used to pass a common 
value of run, reset, or con- 
tinue to the main program. 

Is used to pass the Hold 
command to the main program. 
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TABLE I (con't) 



Variable Name 


FORTRAN Format Description 


STACK ( 10) 


1*4 Is the stack used in 

changing the legal table. 

It will permit 10 different 
states that C4 could be in. 
Presently, there are only 
four states and nesting of 
the states has only been 
down to a second level. 


MODE 


1*4 Is the column index to the 

array BUTLIST. It is used 
for the purpose of creating 
different sets of button com' 
binations that are to be 
"pressed" (i. e. simulated) 
by the computer. The chief 
application here is to set 
up modes other than "Wide 
Band", "Channel Monitor", 
and "Manual" . The Automa- 
tic Mode uses this mode 
index. 


BUTLI3( 18,6) 


1*4 Is an array of button num- 

bers used by the subroutine 
KTLSIM to simulate the user 
pushing bottons by the com- 
puter. The columns are the 
modes (i.e. "Automatic Mode 
1") and the rows are the 
buttons to be pushed. The 
first entry in each column 
is the number of buttons 
that are to be "pushed" +1, 
because the simulation of 
the pushing of these buttons 
is done in a do loop. 



All of the above mentioned variables are in common with the 
main program. 



ICNT 


1*4 Is the variable that con- 

tains the value of the block 



size; used by the DAU, AP- 
120fB, and I/O package. 



35 



TABLE I (con't) 



Variable 


Name FORTRAN 


Format 


Description 


IADC 


1*4 




Is the variable used to 
select high or low ADC in 
the DAU. 


ITIME 


1*4 




Is the variable used to 
select a time domain plot 
(either YES or NO) . 


IAVG 


1*4 




Is the variable used to 
determine how many times 
data will be acquired and 
processed, and then this 
number, IAVG, will be the 
factor used in determining 
the average value. 


IPLOT 


1*4 




Is used to indicate the num 
ber of three dimensional 
plots desired. 


ILNL.G 


1*4 




Is used to select either 
linear or log plot in the 
I/O package. 


ICHN 


1*4 




Is used to select the 
channel frequency from the 
array IFREQ and is used to 
annotate the graph. 


The above variables are 
command LINK will pass 
problems that precluded 


passed from SPECTRL to LINK. On 
these to SATCOM. There were system 
using these variables in common. 


The following variables 


are used in SPECTRL alone. 


FNUMRG 


REAL 




Is used as the floating 
number of NUMREG. 


STATE 


1*4 




Is used as the column index 
in the array LGTAB in order 
to change legal states. 



There are NO other significant variables to MAIN, LINK or 
SPECTRL. 
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BLOCK DATA is a program that will permit the initia- 
lization of data. There are three variables that should be 
examined. They are the frequency plan (IFREQ) , the legal' 
table (LGTAB) and NUMBER. If a new frequency plan is imple- 
mented, the IFREQ array need only be changed. If a different 
panel or a different input device is used only LGTAB and 
array NUMBER need be changed. It is hoped that the other en- 
tries in BLOCK DATA are self documenting. No flow chart is 
necessary. 

LINK is the core of the command processor and linker. 
The overall function of LINK is to clear all devices by use 
of subprograms; set the initial parameters by assignment; 
inform the operator of the present status by writing to the 
status display CRT; and wait for a button to be pushed on 
the C4 panel. The pushing of a button on C4 will cause an 
interrupt. The response will be to go to the SPECTRL pro- 
gram. The only control information passed to LINK that is 
acted on by LINK is a command. Other control information 
has been "passed"; in that it is in common with LINK. LINK 
will continually check to see if the button pushed was a 
command button. -If it was a command, LINK will act; if not, 
LINK will keep looping. 

The commands are RUN, HOLD, CONT, and RESET. RUN 
will cause the execution of the program SATCOM. HOLD will 
permit the storing in memory of the values of the different 
buttons pushed in an array BUTLIS . This will continue until 
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the command CONT (continue) is given. On receiving the CONT 
command, either the program SATCOM will be executed, or if 
HOLD was previously pushed, the array BUTLIS is used to sim- 
ulate the pushing of the bottons on C4. In less complicated 
language HOLD permits the user the ability to set up for 
another experiment while one is already in progress. CONT 
w ill cause the computer to repush all the buttons and then 
execute the program SATCOM. RESET will cause LINK to reini- 
tialize the program. This has been an attractive feature 
in this development system. But much time has been spent 
on its merits in a follow-on-system. The thought has been 
that one may not want the operator to initialize the pro- 
cess. Figure 3-5 are the flow charts for MAIN and LINK. 

3 . SPECTRAL 

Although looking lengthy and possibly complicated, 
the SPECTRL program only has four functions. They are to 
check if the button pushed was legal, go to a location in 
SPECTRL based on the value that the button represents , per- 
form a particular function, and then exit. The pushing of 
a button on the C4 panel will cause an interrupt. The in- 
terruption will activate the KTL routines which will deter- 
mine which button was pushed and pass to the LINK program 
the number associated with the button just pushed. NUM is 
the variable by which this number is represented. NUM is 
available to SPECTRL because it is in common with LINK. In- 
formation is derived from the value of NUM. This information 
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Figure 3.5 

Flow Diagram For Main and Link 
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Figure 3.5 (con' t) 

Flow Charts for Main and Link 
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is used to perforin the first three functions which are now 
discussed. Table II shows the value for NUM and the lamp 
matrix that corresponds to the button on C4. 

In order to provide some protection for the operator 
and program, a scheme had to be created to be able to dyna- 
mically "lockout" certain buttons. This lockout protection 
is designed to allow the operator who knows very little 
about the spectrum process to run the system. The dynami- 
cally changing legal state will only permit certain buttons 
to be pressed either because of a certain state or because 
of sequence. 

Example 1: The pushing of a frequency plan button, 

say GAP for the GAPFILLER frequency plan and the WIDE BAND 
button for wide band (1MHz) monitoring will place the panel 
in a state such that only buttons from the CONTROL and MODE 
rows are able to be decoded. Any other button pushed will 
result in an error. The error is not a programming error. 
The SPECTRL program lights the error light and requests 
another entry by lighting the "ENTRY REQUIRED" light. No 
other warning or instructions are given. 

Example 2: The pressing of the MAN button for man- 

ual mode will change the legal state of the panel such that 
all buttons except those associated with number pad (number 
0 - 9 , decimal point, MHz, kHz, Hz, clear entry) are able to 
be pushed resulting in a legal entry. In the manual mode it 
is hoped that the user does know what to do. 
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TABLE II 

LAMP MATRIX AND NUM VALUE TABLE 



BUTTON NAME 


LAMP 

MATRIX 

CODE 


VALUE 
USED 
BY NUM 


BUTTON NAME 


LAMP 

MATRIX 

CODE 


VALUE 
USED 
BY NUM 


RUN 


0 


72 


100K 


35 


16 


CONT 


1 


73 


1M 


36 


17 


HOLD 


2 


74 


(BLANK) 


37 


18 


RESET 


3 


75 


WIDE BAND 


40 


7 


DTA LOG 


4 


76 


CHAN MON 


41 


8 


(BLANK) 


5 


77 


AUTO 


42 


9 


POWER 


8 


31 


MAN 


43 


10 


AUTO 


9 


32 


FULL MON 


44 


11 


LOG 


10 


33 


(BLANK) 


45 


12 


DTD 


11 


34 


GAP 


48 


1 


VOLTS 


12 


35 


A 


49 


2 


(BLANK) 


13 


36 


B 


50 


3 


HANNING 

WINDOW 


16 


25 


C 


51 


4 


HAMMING 

WINDOW 


17 


26 


1 


52 


5 


TIME DOMAIN 


18 


27 


2 


53 


6 


A/D LOW 


19 


28 


CTR 

FREQ 




38 


A/D HIGH 


20 


29 


LPF BW 




39 


ZERO INSERT 


21 


20 


A/D RATE 




40 


64 


24 


19 


No. OF PLOTS 




41 


128 


25 


20 


WINDOW TYPE 




42 


256 


26 


21 


IF ATN 




43 


512 


27 


22 


PLOT BW 




44 


1024 


28 


23 


AVE BLKS 




45 


2048 


29 


24 


(BLANK) 




46 


3K 


32 


13 


(BLANK) 




47 


10K 


33 


14 


(BLANK) 




48 


30K 


34 


15 
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TABLE II (con't) 





LAMP 


VALUE 




LAMP 


VALUE 




MATRIX 


USED 




MATRIX 


USED 


BUTTON NAME 


CODE 


BY NUM 


BUTTON NAME 


CODE 


BY NUM 


7 




49 


• 




65 


8 




50 


(BLANK) 




66 


9 




51 


Clear Entry 




67 


MHz 




52 


(BLANK) 




68 


ENTR 




53 


A 




69 


4 




54 


B 




70 


5 




55 


C 




71 


6 




56 








KTz 




57 








1 




58 








2 




59 








3 




60 








HZ 




61 








ERROR 


22 


62 








ENTRY READ 


23 


63 








0 




64 









l 
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Example 3: The pressing of any of the DATA ENTRY 
buttons will change the state so that only buttons in the 
number pad will be accepted. Advisement will come up on the 
status display stating that a number must be entered via the 
number pad. The "ENTRY REQUIRED" light will also light, 
because data are required. 

The legal table has a different state for each of the 
modes available. There is an additional state of allowing 
only the number pad to be used. The dynamism of the legal 
state is handled by the concept of a stack and pointer. The 
legal state can change to ten different states with this 
pointer. The states are pushed onto and popped from the dy- 
namic stack. The first state in is the last state out. 

Going to a particular location in SPECTRL is accom- 
plished by a computed "GO TO". In many cases the value that 
NUM holds is usually the first two digits in the label that 
the computer "GO TO" will be vectored. Example: The value 
NUM takes on for the RUN button is 72. The computer GO will 
vector the program to label 72000 . This was done for ease 
in reading and making the button association with hardware 
easier . 

The performance of a particular function is the core 
of the SPECTRL program. This particular function can be 
characterized by (1) making an assignment, (2) performing 
control, and (3) making a calculation. In some cases more 
characteristics are present. 
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Example 1: The pushing of GAP for a frequency plan 

change only changes a column index in the frequency array 
IFREQ . 

Example 2: The pushing of WIDE BAND makes assign- 

ment that will be passed to the DAU Control registers, and 
sets the receiver up on the proper frequency with the proper 
bandwidth and attenuation. 

Example 3 : The pushing of any button in the block 

size will cause the block size to be computer from value of 
NUM which is related to the button pushed. 

In essence, that is the structure of the SPECTRE 
program. Flow diagram for Spectral is shown in Figure 3.6. 

E. SPECTRUM CONTROL - OPERATION 
1 . Introduction 

The execution of these programs will permit one to 
operate the SSA for spectrum monitoring. The loading and 
execution of these programs and any other programs are dis- 
cussed in Chapter IV and Appendices F and G. Operating the 
SSA for spectrum monitoring is not difficult. The para- 
meters can be changed while processing is going on to set 
up for another experiment. Assuming that the program has 
been started, the C4 panel lights will all be turned off and 
an instructional message will be printed on the status dis- 
play panel. Initializing all the devices will have been 
done. The program will be in a loop waiting for a button 
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Figure 3.6 

SPECTRL Program Flow Diagram 
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to be pushed. Operating the spectrum process requires at a 
minimum, a mode of operation and command to run. The se- 
quence for pushing buttons is not restrictive if a manual 
mode is chosen, but it is restrictive for other modes. The 
layout design of the panel suggests that the operator start 
at the top left and proceed down the panel, then to the top 
right and proceed down to the control row, giving a command 
as the last item. There are defaults set if certain modes 
are selected. The defaults were designed so that the user 
would be protected if the user did not make an entry and 
also as a convenience. These are modes that require a num- 
ber of buttons to also be pressed. But these are "pressed" 
by the computer . 

2 . Selections 

It is suggested that the first selection be that of 
a frequency plan. The Auxiliary buttons 1 and 2 are not 
programmed. The next selection would be a mode of operation. 
Wide Band mode will set all the equipment up for a 1 MHz 
spectrum analysis on the GAPFILLER Frequency Plan (Channels 
1 and 2) . All defaults will be set and only a button from 
the CONTROL or MODE row will be legal entries. To change 
any of the defaults (which are indicated on the panel by 
lighting of buttons that the computer "pressed") press MAN 
for manual operation. In chosing CHAN MON for channel moni- 
tor also sets up standard defaults. But unlike Wide Band 
monitoring the program needs to know which channel is 
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desired to be monitored. The legal state will change to 
permit only entries from the number pad to be legal entries . 
The operator will only be able to enter a number (use channel 
numbers 21 and 22 for Narrow Band A and B of the GAPFILLER 
Frequency Plan) . Once the channel number is entered the 
program will pick the correct channel frequency from the 
chosen frequency plan and change the legal state so that only 
a mode or control command can be given. AUTO is for automa- 
tic mode. It has been programmed to the extend that it 
operates as CHAN MON in requiring a number to be entered 
(e.g. AUTO 1 for automatic Mode 1) . But the particular 
functions for the automatic modes have not been defined. 
Comments in the source listing indicate where these functions 
can be defined. MAN selects the manual mode. The pushing 
of this button will change the legal state such that all 
buttons (except the number pad) can be pressed. No defaults 
are set. FULL MON button is still in development. Complete 
revision of the program STACOM are required for this evolu- 
tion. These programs and documentation are in Appendix V. 
FULL MON is for a full monitor of the GAPFILLER Satellite. 

It is a monitoring of the Wide Band and two narrow band 
channels. This is accomplished by setting the spectrum 
receiver and DAU up for a signal at a particular frequency; 
acquiring data; process the data, and; plot and hold the data 
on the graphics terminal. This is then repeated again, but 
the receiver and DAU parameters are changed. The control of 
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the spectrum receiver, and DAU has been completed. The I/O 
graphics package is complete. The processing of the data is 
currently under the second iteration and not available. 

All other selections can only be made if the manual 
mode has been selected by the pressing of MAN. Selection 
of the buttons in the IF FILTER BANDWIDTH row will change 
the spectrum receiver bandwidth. The indications that this 
has been accomplished are: (1) the button lights up, (2) the 

operator can hear the filter change, (3) the front panel 
lights to the spectrum receiver will change, and (4) the HP- 
1220 scope presentation (which shows the down converted sig- 
nal) will change. A selection from the FFT BLOCK SIZE row 
will change the block size. The indication that this has 
happened will be only the notation on the plot, and the 
light in the button pushed will be lighted. Three buttons 
in the OPTION row are under development. They are the win- 
dowing buttons. No windowing has been implemented. TIME 
DOMAIN will cause the system to display a time domain graph 
of the base band signal. A/D HIGH and LOW will select the 
high or low speed analog-to-digital conversion process in 
the DAU. Only two buttons in the DISPLAY SCALE row are pro- 
grammed. POWER will cause a power or linear spectrum to be 
displayed when the data is graphed. LOG, however, will cause 
the data processed to be plotted on a log scale. In the DATA 
ENTRY rows only PLOT BW button is not programmed . These two 
rows provide a unique feature. They will permit the entry 
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(via the number pad) any number for any of the categories 
represented by the button. All buttons operate in the same 
manner. For example: the pressing of IF ATN for IF Atten- 

uation will cause the legal state to change to permit only 
entries from the number pad. A number (0-127 in this case) 
can be entered by pushing the numbers in the number pad. 

After the numbers are pressed, press the ENTER button. The 
ENTER button will change the legal state back to what ever 
state the panel was in at the time IF ATN was pushed. The 
pushing of ENTER will also cause the number just entered to 
be used to control the spectrum receiver attenuation. This 
same sequence will apply for all the buttons that require a 
data entry. 

The number pad is only engaged when any button pushed 
has a particular function which requires a numerical entry. 
CHAN, for example, when pushed, will engage the number pad, 
because by itself Channel means nothing. Channel 5 means 
something. CTR FREQ for center frequency means nothing but 
center frequency 150MHz means something. The Clear entry 
will clear all registers associated with the number pad. 

ENTER button will clear the number pad, "pop" the legal state 
off the stack and make the number just entered available to 
the particular function that requested the number pad. 

All the buttons on the control row are commands to 
the MAIN program. The pressing of RUN will cause the exe- 
cution of the SATCOM program. HOLD will permit entries on 
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the C4 apnel but nothing will take effect until CONT is 
pressed. RESET will cause the program to start again. 
LOG has not been programmed. 



DATA 
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IV. COMPUTER OPERATION OF THE SSA 



A. INTRODUCTION 

The purpose of this section is to document procedures 
for operation of the SSA using the host computer. To do 
this, a number of items have to be presented. Many of these 
items are discussed in the manufacturers' manuals. But in 
an effort to decrease the "start-up-time", i.e. the time it 
takes one to get accustomed to the system so that more time 
is spent doing experiments rather than debugging operator 
problems, some of the pertinent concepts and commands will 
be presented with examples. In addition, due to the nature 
of the SATCOM lab, the transient students, and the ease with 
which diagnostics can be run, diagnostic procedures are 
presented. It is felt that anyone can run any diagnostic 
at any time. This should reduce troubleshooting-time by 
localizing a problem, reduce repair costs, and increase fam- 
iliarity and confidence with the system. 

Operation of any of the devices by the computer requires 
a program and the device to be available. The approach will 
be to go through each device and state how each one is made 
available. Particular eccentricities of the device will 
also be made known. Having presented the devices, then a 
discussion on programming the system is given. 
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B . DEVICES 



1. Power 

All AC power is distributed through the main switch- 
board located at the entrance to the lab. The power is dis- 
tributed from a polyphase system of three phases. Each phase 
differs by one-third of a cycle of 120°. The phases are 
labelled on the switchboard as phase A, phase B, and phase C 
of which C has four branches. 

a. Phase A 

Phase A distributes power to racks 7-11, 15-19, 
and the HP 9 830 calculator. All of these racks require 
power when running the SSA. 

b. Phase B 

Phase B distributes power to computer racks 12- 
14. Although the DAU is resident in rack 14 it is able to 
be powered up after rack 16 is powered on. 

c. Phase C 

Phase C has four branches to it. For computer 
operations only branch 4 and one switch in branch 1 to the 
AW/WSC-3 has to be on. Branches 1-3 provide power to the 
lab benches, rack 0-6, and uninterruptable power to the time 
code generators and frequency reference amplifiers. 

2 . Unit Power 

Refer to Figure 5-1 for unit location in the racks. 

a. Racks 7-11 

Most items in racks 7-11 are powered up when 
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SATCOM Lab Rack Layout 



phase A switch 1 and 2 are thrown. The additional consider- 
ations are the Tektronix 4014-1 terminal, the Tektronix 4631 
hard copy unit, the Electrohome display, and the Ann Arbor 
terminal. All these devices are powered up only when in use. 
The Tektronix 4014 terminal must have the "Reset page" button 
pushed before powering down this unit. This same button 
should be pushed after the screen "blooms" when powering on. 
The hard copy unit takes 5-7 minutes to warm up before re- 
liable copies can be made . The Ann Arbor terminal is located 
just above the blowers in rack 10. It must be powered on for 
the Electrohome CRT display to work. 

b. Racks 16-19 

All devices in these racks will be powered up 
once the switches on phase A are engaged. Note that the 
HP 9830A will also be powered up or down if the power to 
rack 19 is on or off. The DAU power supply is located in 
rack 16 and this condition should be recognized when securing 
the DAU or rack 14. If a unit device does not come on after 
powering up racks 16-19 then look on the device for a local 
on/off switch. There are no local on/off switches for the 
NPS made equipment. 

c. Racks 12-15 

The powering up and down of rack 15, the control 
bus interface boards, is detailed in /” 18_/. In rack 14, 
as has been stated, the DAU resides, but its power supply is 
connected to rack 16 . The AP-120B is powered by local on 
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and off switch and the rack 14 switch of phase B. Racks 12 
and 13 house the computer, magnetic tape and disc drivers. 
The power to these units is always left on. The procedures 
for powering up the disc drives are set forth in Appendix F. 
The magnetic tape drive systems are all powered on by the 
"power" switch on each unit. The computer is powered by a 
key switch. In the lock position the switch panel is dis- 
abled . 

d. Devices not in racks 

The printer, teletype, and console/center table 
get power from phase C, branch 4. The high speed printer 
not only has to be powered up, but also must be in the run 
mode. This is achieved by simply pushing first the ON and 
then the RUN buttons. But to advance pages manually one 
must press STOP and then press the paging buttons. The OFF 
button secures power to the unit. The teletype is powered 
on by the local power switch on the lower right. If the 
teletype is unavailable after is has been powered on, then 
examine the fuse to interfacing power supply located in the 
teletype near the right side. This fuse has a history of 
failing when power to the computer is lost and then again 
restored while at the same time the teletype did not get 
powered down. The console and all units on the center table 
also get power from phase C, branch 4. 

3 . Procedures for Power Up 

Detailed walk through procedures for powering up the 
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SSA are contained in Appendix F. 



C. PROGRAMMING THE SSA 
1. Introduction 

The information contained in this section is to pro- 
vide the operator sufficient information to quickly operate 
the system. It is not meant to be a "cook-book". The danger 
of such an item is that the operator will only be able to 
perform specific procedures. It will be impossible to per- 
from other tasks without some concept of how the system works . 

The type of operation that is performed on the com- 
puter has either the nature of a one word command such as to 
execute a program that already exists; or to write, perform 
language translation, and execute one's own program. The 
most common causes of errors on this system are due to the 
operator not knowing which program is running and how the 
computer system refers to a file. One concept should be 
fundamental, and that is: anything that runs on the SSA 

computer is only a program. Most students that use this 
system are familiar with other computer systems that are 
larger, and seemingly everything (loading a program, assign- 
ment of logical units, and execution of that program) was 
done automatically - "transparent to the user". If start 
up time for the student on this system is to be reduced, the 
student must be able to identify which program is running, 
and at which level it is running. Too much time can be 
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spent looking in the wrong error list only because one did 
not know which program gave the error. An example of con- 
fusion would be one in which the FORTRAN compiler gave an 
error message and because this message appeared on the sys- 
tem console the operator might mistake it for an operating 
system response. 

What will be presented will be pertinent features 
and or commands of the following areas 

a) the operating system 

b) CSS commands 

c) utility programs (editor, language translation, 
disc utilities) 

d) diagnostics 

e) specific project programs 

f) special device oriented programs (AP-120B, 

HP 983,0A) . 



2 . Operating System 

The name of our operating system is OS/32 MT. It is 
a standard, general purpose operating system for Interdata 
32-bit computer systems. It supports a multiprogram environ- 
ment with up to 255 user tasks written in FORTRAN, COBOL, 
BASIC or ASSEMBLER languages . An important feature to new 
operators is the Command Substitution System - CSS. The 
primary reference / 19_/ is quite adequate, but should not 
be taken rigidly. (Some of the SSA addresses are different 
as well as other features.) The following are sections that 
should be read and experimented with during the operator's 
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first session on the computer: 

Chapter 3 sections: 3.1 - 3.3 

3.4.3 

3.4.5 

3.4.13 

3.6.1 - 3.6.9 

3.6.12 

3.7 - 3.8 

Chapters 1, 3-5, and 9 should be read after having been 
exposed to the system. 

The MT in the name OS/32MT, stands for Multi-Tasking. 
The noun, "task”, is a confusing label in the reference 
manual. A task is any job that is running, paused or just 
loaded in memory. It could be the users program, the edi- 
tor program, or any other program. An example follows. A 
user would make his program, for example, a program written 
in FORTRAN, a task by first creating this program using the 
editor. Then this FORTRAN language program would be conver- 
ted to assembly language and then to object form. The ob- 
ject form ( "deck"/module) is then established into a task. 

It is only in this form that this user's program can be exe- 
cuted. During this whole process an editor program, and 
compiler, and assembler programs had been running as tasks 
in order to do the process. The last program to be running 
was the Task Establisher program running as a task. Under- 
standing what a task is is important, because in order to 
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know which program was running is equivalent in knowing what 
was the task. The fact that the OS/32 MT is multi-tasking 
does not mean it is a time-sharing system. There is one 
system console, and this is not shared. The significance 
of this is that there is only one point of control and is 
restrictive in that nature. But it is also very powerful. 

The amount of control the user has must be realized, for 
the user could do damage to his or anyone else's files or 
running programs. If the system is not time-sharing but is 
multi-tasking what is the difference? The operating system 
will permit 255 tasks to be operating at one time. This 
means one user can be using the systems editor while creat- 
ing a program while a second user is collecting data. This 
is all done by partitioning memory between the tasks. 

The OS/32 MT supports the concept of a background 
partition and a foreground partition. Only one job or task 
can be loaded in background whereas several can be loaded in 
foreground. Any job running as a background task is pre- 
vented from corrupting the tasks in foreground. On the SSA 
system program development is done in background while SSA 
experiment programs or data collection programs are running 
in foreground. 

How the operating system does what it is to do is 
now presented. The purpose for this is because one must be 
aware of (1) how a user written program is linked to the 
device, in order to program the device or (2) how to run more 
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than one program that communicates with one particular de- 
vice. It is also necessary to be aware that there has been 
considerable software development at the operating system 
level to link user programs that communicate with devices 
on the control bus. 

To place things in perspective the components of the 
operating system are: 

System Manager 
Executive Functions 
Task Manager 
Timer Manager 
Memory Manager 
File Manager 
I/O Subsystem 
Resident Loader 
Floating Point Support 

The components that are of significance for opera- 
tion of the system and understanding of the software develop- 
ment are the System Manager and the I/O Subsystem. The 
System Manager is of interest to the general user primarily. 
The System Manager handles all interaction between the sys- 
tem and the system console device. It provides the operator 
interface to the OS/32 MT. It executes as a task in OS/32 MT, 
and is designed so that many functions are performed through 
Supervisor Calls (SVC) . The System Manager contains routines 
to support direct access devices. All I/O requests to the 
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system console and logging device are controlled by the 
System Manager. Commands from the system console are de- 
coded by the System Manager, and then it calls the appro- 
priate executor. It contains logic to provide the console 
operator with messages in case of error. The I/O Subsystem 
is composed of a SVC 1 handler, the peripheral device dri- 
vers, SVC 11 handler, and other routines such as the Sys- 
tem Queue Handler. This section is of interest to users 
who will write drivers for future devices or for those who 
desire to run SSA devices on other host computer systems. 

All devices that are connected to the control bus are natur- 
ally driver dependent, but also they are dependent of the 
SVC 11 handler and KTL library. 

To see how all the programs fit in a system will aid 
one in software development. Figure 5.2 is a simplified 
software system diagram. Two partitions are made in this 
diagram to represent views from which one can understand the 
software system. These partitions are User/Executive and 
levels I, II & III. The distinction between the levels is 
basically one of language and specifics. The lower the level, 
the lower the level of the language and more specific is the 
instruction. The distinction between the User and Executive 
is not as clear. In the sense used here, executive denotes 
administration and decision making for the computer system. 

The User however, is an employer who employs the services of 
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Basic Diagram of the Software System 



the Executive. The link between the partitions is the SVC - 
service request call. There are a number of SVC available 
and one doing program development should be aware of them. 
They are as listed in Table III. (Note that the documenta- 
tion for all Interdata software makes no reference to SVC 4, 
but in the source listing this SVC is used. Also, SVC 14 
is available to the USER as is 8, 10 , 12 , 13, but SVC 14 is 
shared with the OS/AIDS program.) Lastly, in this figure 
only the SVC 1 is shown as being linked to the Executive . 

An explanation of what actually happens is helpful 
in understanding the software components. The approach will 
be top down. The user's program in this example will be a 
student written program in the FORTRAN language and has the 
task to add two numbers and print the results on the printer 
and then plot the point on the TEKTRONIX terminal using the 
graphics capability. The numbers are to be added in the 
AP-120B. The program first will READ the data in from the 
console. Assume that the following is the correct FORTRAN 
program. 

READ (5,6) A, B 

CALL VADD (A, 1, B, 1, C, 1) 

WRITE (6,16) A, B, C 
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TABLE III 



SERVICE 

1 

2 CODE 



3 

5 

6 
7 
9 

11 

14 

15 



OS/ 3 2 MT SUPERVISORS CALLS 

FUNCTION 
General Purpose I/O 

1 Pause 

2 Get Storage 

3 Release Storage 

4 Set Status 

5 Fetch Pointer 

6 Unpack 

7 Log Message 

8 Interrogate Clock 

9 Fetch Data 

10 Time Wait 

11 Interval Wait 

15 Pack Numberical Data 

16 Pack File Descriptor 

17 Mnemonic Table Scan 

18 Move ASCII Characters 

19 Pack 

20 Expand Allocation 

21 Contract Allocation 

23 Time Management 

End of Task (EOT) 

Fetch Overlay 
Intertask Services 
File Management 
Load TSW 

NPS Control Bus Device Dependent I/O 
User SVC 

ITAM Device Dependent I/O 
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CALL DRAWABS (A, C) 



The above program is the USER MAIN PROGRAM. Subroutines from 
the AP Library (VADD) Tektronic Library (DRAWABS) and FORTRAN 
Library (READ & WRITE) are used. The AP and Tektronics li- 
brary are one level down from the USER MAIN PROGRAM and one 
level above the FORTRAN run time libaray (RTL) . For this 
example we will assume all I/O was done by subroutines in the 
FORTRAN Run Time Library, and further they were done by a SVC 
1. The READ statement causes an entry into the FORTRAN RTL 
to subroutine READ. This causes the execution of the assem- 
bly language op-code of SVC. In executing that op-code cer- 
tain parameters (i.e. the data, the logical unit, etc.), are 
passed to the operating system. The operating system pro- 
cesses the parameters and makes the connection of logical 
unit number 5 and console (the logical unit having been 
assigned before executing the program) . The operating 
system passes the information to the console driver. The 
driver sends information to the console. The console's hard- 
ware generates something on the screen that meant "give me 
something". Upon entering a number (two in this case) , the 
data would return via the driver to the SVC 1 processor, and 
the data would be placed in memory addresses A and B. Note 
that the administrative function of getting the data and 
storing it was done via the OS/32 MT SVC 1 processor. The 



66 



WRITE statement is similar. It causes the SVC 1 processor 
to get data from memory. Location B; decodes the logical 
unit and sends data via the software driver to the device - 
the printer. VADD and DRAWABS are only intermediate steps 
on the USER side. It is important to note that in all cases 
every level on the USER side is device independent. . Even 
though subroutines to the AP-120B and TEKTRONIX were used 
it was assumed that all I/O was to be done via the SVC 1. 
This was not a great restriction, for there are many pro- 
grams written for other devices, i.e. DAU Support Library, 
that use the SVC 1 as its link with the operating system. 

How are they device independent if the program is designed 
for a particular device? The programs are device indepen- 
dent in that they will take input from any device and al- 
though its' output is designed for a specific device, the 
output could be directed to an alternate device and the 
system will still run - i.e. no crash. All user programs 
should be written as device independent programs . This must 
be done so programs can be transferred from one system to 
another, and so that new replacement devices can be added, 
(without having to change the user program) , as they will be 
in this development system. What changes then? The execu- 
tive side. All the drivers are specific to their devices. 
The idea is to keep things general and system oriented at 
the USER level and push the specifics to the lowest level 
and if possible all the way to the drivers. Two examples 
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follow. Consider changing only the Fluke frequency synthe- 
sizers. Only one driver need to be changed presently. But 
if one had written a user program that was tailored to the 
frequency synthesizer, then not only would the driver have 
to be changed but also the user program. The second ex- 
ample exhibits not the change of a device but rather the 
change of a bus either the control bus or the IEEE 488. It 
might not be necessary to change the drivers to all the de- 
vices on the bus, but rather create a SVC designed for a 
particular need. This is how the present SVC 11 was develop- 
ed. If the user programs are dependent on developemnt de- 
vices and busses then there will be a lot of reprogramming 
as the devices change. 

Before leaving the operating system, the one major 
stumbling block in the mechanics of operating the system 
is a misunderstanding of what a file is. On this system 
a file can be almost anything. A file does not mean just 
some software module on a disc. The printer is a file, and 
the teletype is a file. There is a file called the "NULL:" 
device.' By making a logical unit assigned to the NULL de- 
vice output requests are ignored. No output takes place. 

That is, when the operating system processes the SVCl, no 
output takes place. The program will continue. An example 
for use of the NULL: device follows. In software develop- 
ment a user has a program that is to print out a number many 
times before ending. To have this same program run to check 
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out just the logic of the program the NULL: device could be 
assigned to that logical unit to which the printer might 
normally have been assigned. Files all have names to them. 

At all times all components of the name are used by the 
operating system, but it might not be necessary to type the 
full name either due to a default or the way a CSS is written. 
All devices have file names that end with a colon (:) . By 
typing D D on the system console one can see the labels that 
exist for the devices in the lab. Note the "NULL:" device. 
Specifically, the following commands could be given assuming 
assignment of logical units had previously been done. 

USER TYPES MEANING COMPUTER RESPONDS 



D LU 


Display Logical 
Units 


05 

06 


CON 

PR 


CL, 6 


Close Six 






AS 6, NULL: 


Assign Six to NULL: 






D LU 




05 


CON 



06 NULL 

The three components to the file descriptors are 
volume, file name, and extensions. File descriptors apply 
to the software files on the disc. Example: MON 7: 

SPRCVR.FTN. This is a FORTRAN file with the name SPRCVR 
on the disc MON 7. The extensions that are used on our 
system are located in the reference manual / 17 _/ . The 
added extensions are listed in Table IV. The error associa- 
ted with the file descriptors are 

1) Not including the colon (:) when referring to a 
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TABLE IV 



AP-120B FILE DESCRIPTOR EXTENSIONS 



APS 


- AP 


SOURCE 




APO 


- AP 


OBJECT - NOT 


7/32 OBJECT 


APE 


- AP 


EXECUTIVE - 


FOR AP SIMULATOR 
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device . 



2) Forgetting that the system volume was being used as 
the default. 

3) Not knowing that a CSS command was written taking 
into account that an extension would not be given. 

For clarification of the problems read the section on CSS 
commands . 

3 . CSS Commands 

The Command Substitution System (CSS) is an exten- 
sion to the OS/32 MT command language. It is nothing more 
than another program. The statements in this program are 
either operating system command or other CSS commands. In- 
stead of typing a number of operating system commands to 
do the job all these commands can be placed in one file 
called a CSS file or program. When this program is execu- 
ted, one is executing a CSS command. Note that unlike 
operating system commands, CSS commands are user written 
programs and, therefore, changeable. These "commands" can 
be created by the use of the editor or "BUILD" command. The 
obvious application for the CSS commands are those when the 
user does not want to issue a set of operator commands to do 
a particular job waiting for each result of the individual 
operator command. As an alternate: group in one CSS pro- 

gram all the commands that could normally be issued Execute 
the CSS program. The amount of time that can be saved in 
doing this is probably the single most useful feature of the 
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system to students that use it. Certainly there are many 
features to the SSA, but these are expected. To not have 
to "baby-sit" the computer will free the student's time. 

How to write these CSS commands is well covered in 
C\lJ, but here is the concept of what happens . The opera- 
tor will type something on the console. The computer will 
then try to decode it as an operator command. If it cannot 
be decoded as an operator command then it will treat the 
something as a file. It will then go to the file, read the 
file and try to execute what it is reading, as if the file 
was a set of operator commands. If the file does not exist 
then an error will be displayed. Examples follow. 

Example 1: Assume the user types "PR:". PR: is not 
an operating system command; so, it will check to see if PR: 
exists as file, and it does. Remember devices are "files" 
and PR: is the label for the printer. The computer will then 
go to the printer and try to read; it cannot, so an error 
will result. 

Example 2: Assume a file exists with the name JOB. 

ASN; that the statement in that file is: "AS 5,C0N:"; that 
the user has a job he has loaded as a task and now would like 
to assign logical units. The user could type "AS 5, CON:" 
using the operating system command to assign logical unit 
number 5 to the console. Or one could type JOB. ASN. This 
is not a operating system command so the computer looks for 
the file JOB. ASN, reads it, and tries to execute it, which 
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it can do in this case. 

Example 3: Assume the user wants to make five ob- 

ject modules from FORTRAN sources; wants to make one task 
called JOB.TSK; has a TET file to include the five object 
modules; wants to copy this file to a cassette tape, and 
then display the devices on the system. To do this by 
operating system commands would take the same time to do it 
as with a CSS command, but with the CSS command the user 
does not have to wait to execute the next command. The user 
would enter the editor and create a CSS program, and save it 
in file with a label of his choice - assume the label for 
this file is "DOIT. CSS". The actual entries would be: 

BIGBOY ONE, TWO, THREE, FOUR, FIVE - CSS command to FORTOBJ 

files ONE, TWO, THREE, 
FOUR, FIVE. FORTOBJ 
is a CSS file to take 
(file name) . FTN and 
language translate it 
to (file name) . OBJ. 

FORT JOB - a CSS command to lan- 

guage translate and 
include all files in a 
TET file to make a 
task called (file name) . 
TSK 

COPYT JOB.TSK, CAS1: - a CSS command to use OS 

COPY to copy a task from 
file 1, to file 2 where 
file one is JOB.TSK, 
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file 2 is CAS1 : in 
this case. 

D D a operating system 

command to display 
devices . 

$EXIT - a CSS statement that 

indicates this is the 
end of the CSS command 
- DOIT. CSS 

Note this CSS command is just another program, where the 
statements are other CSS commands and operating system 
commands. It was created by the user for a particular use. 
Now, by executing DOIT just by typing "DOIT" the computer is 
executing the commands in DOIT rather than executing the 
commands from the console. (The console has not lost con- 
trol.) For detail use see / — 19 J. A number of CSS commands 
were provided by Interdata, C3, and BDM. Some are also 
provided in this report in Appendix U. 

The problems that arise in using CSS commands are in 
two areas, but are associated with the descriptor and how 
the system uses it. The file descriptor includes: volume, 

file name, and extension. To execute CSS commands the CSS 
file must be either on the "system volume" (set by the "V" 
command) or the full file descriptor must be used. Assume 
the system volume is M0N7, and the CSS file, DOIT, is on 
M0N5. To execute it one must either type M0N5:D0IT or 
change the system volume to M0N5. The second problem that 



usually occurs in the execution of a CSS command is that the 
computer will use the system volume as a default if it is 
not specified. In some CSS files the extensions are already 
provided. Example: "FORT JOB.FTN" typed on the console 

will give an error, because the passing parameter is JOB.FTN. 
Reading what the FORT CSS command is will show that it has 
replaced an "@1" with the phrase JOB.FTN. But note the very 
next character to the @1 is .FTN (@1.FTN). So the resulting 
descriptor is: VOLM: JOB. FTN. FTN. 



System Volume 


JOB . FTN 


FTN 


- used by 


the computer 


(default) 


@1 


FTN 


- written 


in the CSS 



The computer will not permit double extensions (FTN. FTN) and 
the result will be an error. Now let us assume that JOB.FTN 
is on M0N5, that the system volume is M0N7 and FORT is the 
CSS file on M0N5. To execute FORT one would type M0N5:F0RT 
JOB. The system volume will be used as the volume for the 
file descriptor and the FORT command will cause the computer 
to look for a file M0N7:J0B.FTN to compile because the de- 
fault volume is the system volume, and the computer will 
never find it. To avoid these problems know what the system 
volume is and change it if need be. Know what the passing 
parameters are to the CSS programs . Know what extensions 
the CSS program will add on, if any. Always remember that 
the system uses a full file descriptor by adding a default 
if the user does not give a full file descriptor. 
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4 . Utility Programs 



The purpose of this section is just to expose the 
various utility programs that are available. In keeping 
with the terms expressed in the previous section, the 
utility programs are User programs. This might have been 
confusing to one who has just skimmed the operating system 
reference manual / — 19_/, because good descriptions of these 
programs are contained there. The implication might have 
been that they are part of the operating system - they are 
not. The utility programs have such a label because they 
exist to help the user create an executable program. First, 
there is the editor which is normally loaded and started by 
a CSS command. This will be the most used method for creat- 
ing any files, hereafter called source. (The other method 
is with the "BUILD" command - see / — 1 9 _ 7 - ) After creating 
a file with the editor a number of language converters, 
translators, compilers, etc., are used to get the source in 
a form that can be loaded into memory and then executed. 

The language utility programs that are supported are BASIC, 
FORTRAN, COBOL, APAL (which is assembly language for the 
AP-120B) , and an assemblier language. To build the loadable 
module or program the TAST ESTABLISHER TASK must be run. 

This is just another program which is loaded like any other 
program which takes as inputs an object program and commands 
and provides as output a loadable task (i.e. program). Dis- 
cussion on the use of these programs is provided in Appendix G. 
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There are utility programs that are useful for 
keeping one's disc clean and backed up. The programs are 
DISCHECK, DISCDUMP , DISCINIT, C 3 COMP , BACKUP, and OSCOPY. 
DISCHECK is used primarily when (1) the operating system 
crashed while a disc was marked on and (2) a session with 
the editor or the execution of language translation did not 
come to normal termination. It is used after these occur- 
rences, because there will be files that have been "left 
open". DISCHECK will close them. DISCDUMP is used to dump 
files from a disc to another disc, magnetic tape or the 
printer. It can be used to back up a disc. DISCINIT is 
used to rename a disc or completely clear the disc of all 
files. The clearing of the physically lowest fixed disc in 
the SSA system is regularly done. It is done to make the 
lowest disc available for temporary files. Discs are also 
cleared before a compress is done. C3C0MP is the compress 
program. After a period of time free sectors on a disc will 
become scattered. It is more efficient to pack all the free 
sectors together. To use the free spaces up, the programs 
must be compressed. C3C0MP will do this. There are two 
files with the file name BACKUP. One is a task; the other 
is a CSS command. The CSS command will backup one's disc 
on another disc and a magnetic tape as well as do a compress 
on itself. It is extremely useful to keep disc clean, com- 
pressed, and backed up. It is faster to backup a disc on a 
magnetic tape than it is to copy selective files to a tape. 



77 



The BACKUP program and its use is adequately described in 
/ — 19 J. OSCOPY is primarily executed with a CSS command. 

This program is used to transfer ASCII, binary and es- 
tablished task (ones with the extension ".TSK") files from 
their source to any other file destination. To copy a 
ASCII device such as the printer will cause the printer to 
act on the binary code which was being sent. Since it wants 
ASCII code, the printer might have passed wildly a whole 
ream of paper before the user realized the mistake. 

There exists also a software debugger program called 
OS/AIDS. To use OS/AIDS the object module must be included 
when making a task. That is to use the debugger on a pro- 
gram called JOB, then the TET commands or TET file must have 
the command "INCLUDE OSAIDS.OBJ". OS/AIDS is then stated 
when the program JOB is executed. Certainly the normal 
application is to debug a program. There is another appli- 
cation that is particularly useful. It is when a new dev- 
eloped device is being interfaced to the system. OS/AIDS 
will permit one to stop the program at almost any point and 
permit the examination of any of the memory locations and 
registers . 

5 . Diagnostics 

Diagnostics are run on a device when the device is 
not operating correctly. There are diagnostics for most 
devices. Table V provides a listing of the devices, location 
of the diagnostics for the device, if the operating system 
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TABLE V 

DIAGNOSTIC LISTING 



DEVICE 


LOCATION OF 
DIAGNOSTIC 




OPERATING 

SYSTEM 

DEPENDENT 


DOCUMEN 
TAT ION 


CPU 


Interdata Tape 


& 


Disc 


NO 


YES 


MAC 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Memory 


Interdata Tape 


& 


Disc 


NO 


YES 


Logical Storage 
Unit 


Interdata Tape 


Si 


Disc 


NO 


NO 


Universal Clock 


Interdata Tape 


St 


Disc 


NO 


NO 


Ann Arbor Terminal 


No Diagnostic 






— 


— 


Cassettes 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Printer 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Extended Selector 
Channel 


Interdata Tape 


Sc 


Disc 


NO 


NO 


Magnetic Tape 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Universal Logic 
Interface 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Disc 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Current Loops 


Interdata Tape 


Sc 


Disc 


NO 


YES 


Tektronix Graphics 


Tektronix Tape , 
Cassette, Disc 






YES 


YES 


HP983J3 


HP System Cassette 
Tape 


NO 


YES 


Control Bus 


Control Bus Cassette 
Tape 


NO 


Append i 
A 


AP-120B 


AP-Tape, Disc-MONl 


YES 


NO 


DAU 


DAU Diagnostic 
Cassette 






YES 


YES 
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must be up to run the diagnostic, and if there is documen- 
tation for the diagnostic. Diagnostics are simple to run. 
The essence of running diagnostics is to load the program, 
start the program, and compare the results. In Appendices 
H through T are the procedures to run the Interdata pro- 
vided diagnostics. There are step by step procedures to 
load, start and compare the diagnostic process. 

The Tektronix graphics are run with the operating 
system by use of the CSS command "RUN TCSDIAG" . The output 
for the different tests differ with those shown in the Plot 
10 Verification Routine Users Manual, Release 1, Tektronix, 
Inc., Beaverton, Oregon. Enter 3 when asked terminal type 
and enter 2 for buffer type. For character sec enter 960, 
15400, or 30700 for 9.6 K, 154 K, 307 K band respectfully. 

For the HP 9830 simply load the system test tape 
and follow instructions in the Model 30 Calculator System 
Test Instructions manual. 

To test the control bus see Appendix A. 

Testing of the DAU is done by a series of tests 
titled DAUTEST, DAUTESTl , and DAUTEST2 . These are on M0N7 
and are run by use of the GO CSS command. 

Revision two software has been received from Float- 
ing Point Systems. The new tests for the AP-120B have not 
been run as of this writing. There is no documentation for 
the revision one tests other than source listings. 
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6 . Specific Project Programs 



In this development system programs are continually 
being created, revised and deleted. Because only eight 
characters can be used in naming files, and because the 
names are quite arbitrary not much about a program can be 
gleamed from the name of the program. The solution to this 
problem does not lie in reading previous thesis, but rather 
providing future users one source for all programs that have 
been considered useful for present and future uses. This 
one source has been established. It consists of a file 
which contains the listings of all the general purpose pro- 
grams. BDM services at the end of each quarter have been 
copying the unique files of graduating students to a master 
tape . 

These listings will serve two purposes. First, they 
will reduce the duplication of effort. For example, the 
individual who is trying to do something and needs a good 
I/O package for graphics, such a package has been made and 
available. Communication with the DAU is in fact done by a 
group of programs that are in the DAU support library. All 
data acquisition through the DAU uses these programs. These 
programs might be subprograms or subroutines. The second 
purpose these programs have has more to do with changing the 
system. Insight can be obtained if software is to be re- 
placed by hardware or vice versa. The nature of all the 
programs in the lab are either processing, interfacing (con- 
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trol and I/O) or diagnostic in nature. To this date most 
programs are device independent except diagnostics . Some 
interface programs are written for the control bus (SVC II 
and KTL routines). If, for example, the interfacing is to 
be changed by replacing a bus structure with a micropro- 
cessor, the essence of the bus can be seen in the interfac- 
ing program. If a different processor is used, the algor- 
ithm and many modules of a original program will assist in 
writing a new program. The only changes that are expected 
are the called programs . 

The specific project programs are all operating 
system dependent (or run on the HP 9830 alone) , and written 
in the SATCOM lab. A diagnostic program exists for the data 
acquisition unit. Processing programs exist for FFT , 
scaling and averaging in the AP-120B. They are the first 
iteration and welcome changes. I/O programs exist for plot- 
ting data on the Tektronix. Interfacing programs exist for 
the control bus and HP 9830 but the HP 9830 has problems 
with the operating system. Programs also exist for inter- 
facing with panels Cl, C2, C4 and devices A25, A26, A18, 

A19, A21, A22, A10-A14, A6-A8 . See Figure 5.1 for SATCOM 
lab rack layout. 

The SVCil and KTL libraries have been provided by 
BDM. Documentation for these routines is contained in the 
listing. Their use and purpose will be briefly stated here. 
The KTL routines perform I/O on the control bus. KTL is 
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mnemonic for control. The routines will permit writer, reads 
status request, enable interrupts, simulate interrupt, re- 
turn from interrupt, connect and disconnect to a device, and 
wait for task trap. All KTL routines are FORTRAN callable. 
Table VI lists the KTL routines . The SVCll handler pro- 
cesses the SVCll calls made in the KTL routines. It is used 
instead of the normal I/O calls for the control bus devices 
in order to eliminate the overhead of normal I/O calls which 
might be characterized as being a nuisance for devices which 
do not transfer large amounts of data. SVCll incorporates 
INT11 and other logic to handle control bus device interrupts 
almost independently of the I/O systems . 

The DAU Support (DAUSUP) Library was provided by 
Lieutenant Gary W. Bohannan. Documentation for these rou- 
tines are contained in Table VII. These routines provide 
communication with the data acquisition unit in the samy way 
that all other I/O is done. It has been observed that the 
subroutine DAURUN should be preceded by a command to the 
prestart circuit in the DAU. This is done by use of the DAU- 
REG routine. A program example is provided in Appendix U. 

It has not been determined that this corrective action is 
absolutely necessary. First starting the prestart circuit 
and then calling DAURUN was a solution to a problem that 
occurred after the DAU had been operational for about four 
months. The DAU has been run since without the fix and opera 
ted without problems. Nevertheless, it is suggested / 18_/ 
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TABLE VI 



KTL ROUTINES 



Arguments : IUNIT - Integer number of the device 

IVALUE n Integer number and value sent or 
received 

VECTOR - Address vector (lable in FORTRAN Program) 
Vector = A' 100 ' for FORTRAN IV 

or = NAME - External for FORTRAN V 



*KTLWR (IUNIT, IVALUE) 

Performs a write operation to device IUNIT 
writing IVALUE to that device. 

*KTLSIM (IUNIT, IVALUE) 

Simulates an interupt to device IUNIT, with 
junk, IVALUE. 

*KTLRD (IUNIT, IVALUE) 

Performs read operation from device IUNIT, stores 
the read value in IVALUE. 

**KTLON (IUNIT, VECTOR) 

**KTLOGG (IUNIT, VECTOR) 

Connects and disconnects device IUNIT to a pro- 
gram and physically enables interrupts. 

KTLST (IUNIT, IVALUE) 

Gets status from device IUNIT. 



KTLWT 



KTLRET 



Puts the task in a wait state (like pause) 



Returns from Interrupt 
* function value = SVC11 status 

0 = Okay 
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TABLE VI (con't) 



1 = illegal unit number 
-1 = device off line 
4 = illegal value for a write 
** Function = Svc 6 Status 
0 = Okay 

Anything else see / — 1 7_/. 

Note that Cl, C2, C4 panel buffers bounce badly. Any new 
devices that bounce as badly as the panels and for these 
panels the programmer would be prudent to disconnect the 
device for about 100 ysec immediately after an interrupt has 
been detected. Then re-connect the device before doing a 
KTLRET . 
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TABLE VII 



SUBROUTINE LIBRARY DAUSUP 



The following FORTRAN callable routines are provided: 

BCDFRQ (FF) 

SETSYN (ID, IR) 

DAUREG ( IVAL , I REG) 

DAURUN (ICNTL, ICODE) 

DAUGET (I ARRAY, IADDR, NCOUNT) 

All routines, except BCDFRQ, require INTERGER*2 data ele- 
ments as arguments. See page 27 of FORTRAN Ref Manual 
paragraph 6.2. This specifies 16 bit (2BYTE) HALFWORDS 
compatible with the DAU interface. 

NOTE : You may not use literal constants in argument lists, 

these are, by default, INTEGER*4 values. 

EXAMPLE 1: 



CALL DAUREG (4,5) is not correct form 

EXAMPLE 2: 



correct form 



IX = 4 
IJ = 5 

CALL DAUREG (IX, I J) 

Subroutine BCDFRQ requires a REAL (floating point) argument. 

In order to attach DAUSUP programs to your main program, an 
additional line is required in the TET sequence. This is 
easily accomplished by creating a disk file (using the EDIT 
sequence) with the filename: 

name . TET where "name" is the same 

as the "name" in name . FTN 

This .TET file should be as follows: 
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TABLE VII (con't) 



(Col. 1) 

LOG 

REMOTE 

ESTABLISH TASK 
MXSPACE 2800 
OPTIONS F 
GET 600 

INCLUDE <Includes Main Program and your own 

subroutines . 



EDIT DAUSUP . OBJ 

EDIT TCSLIB . OBJ 

INCLUDE APSUP . OBJ 
EDIT APLIB . OBJ 



<Here we sat to GET DAUSUP 
ROUTINES as required 

cOptional - TEK4014-1 
Plot 10 Programs if required 

cOptional AP120B programs 



EDIT FVRTL . OBJ 



cRequired for all FORTRAN Programs 



BUILD TASK, name.TSK cHere again "name" is same an in 

name . FTN 



MAP 



END 

SUBROUTINE BCDFRQ(FF) 

- FF = SAMPLE RATE, IN HZ, (FLOATING POINT) 

- Subroutine converts frequency datum to four BCD digits 
plus Range Digit for compatibility with the SYNTEST 
SM101 FREQUENCY SYNTHESIZER used in the DATA ACQUISI- 
TION UNIT FOR SAMPLE RATE CONTROL. 

Calls Subroutine SYNSET to complete output to DAU 
control Interface for Synthesizer set up. 

Out of range data is reset to nearest limit. 

Language - FORTRAN 

SUBROUTINE SYNSET ( ID , IR) 

- ID (4) INTEGER*2 ARRAY- 4FREQ DIGITS 
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TABLE VII (con't) 



- IR INTEGER*2 RANGE DIGIT 

- Subroutine completes BCB formating for SYNTEST SM101 
Frequency Synthesizer and outputs to Data Acquisition 
RANGE and FREQ registers to set up SM101 to sampling 
rate for A/D converters. No format checbing is pro- 
vided. 

- MAKES SVC calls to OS for output via DAU driver.- 

- Requires Logical Unit 1 set to DAU. 

- Language - Common Assembly Lang. (CAL) . 

SUBROUTINE DAUREG (IVAL, IREG) 

- IVAL - INTEGER* 2 DATA TO BE OUTPUT 

- IREG - INTEGER* 2 DAU INTERFACE REG # 

- Subroutine outputs 16 bit Halfword value to DAU 
interface register specified by IREG. 

- Makes SVC call to OS for output via DAU driver. 

- Requires Logical Unit 1 to be set to DAU. 

- Language - Common Assembly Language (CAL) . 

SUBROUTINE DAURUN (ICNTL, I CODE) 

- ICNTL - INTEGER*-2 control code to select A/D conver- 

ter pair. 

- ICODE - INTEGER* 2 status code 

= 0 Acquisition complete 

/ 0 Acquisition incomplete, DAU error. 

- Subroutine selects DAU interface control register, 
outputs ICNTL code and starts DAU. On acquisition 
completion, DAU status is checked and ICODE is re- 
turned to calling program. 

- Makes SVC call to OS for I/O via DAU driver. 

- Requires Logical Unit 1 to be set to DAU. 
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TABLE VII (con't) 



- Language - Common Assembly Language (CAL) . 

SUBROUTINE DAUGET ( I ARRAY , IADDR, NCOUNT) 

- I ARRAY - INTEGER* 2 ARRAY for receiving data. 

DIMENSIONED AT LEAST TO NCOUNT. 

- IADDR - INTEGER*2 DAU buffer memory start address 

for take out. 

- NCOUNT - INTEGER*2 Total no. of 16 bit halfwords to 

be transferred. Usually set to 2* Acquisi- 
tion count. 

- Subroutine outputs IADDR to DAU Buffer Memory Address 
Register and NCOUNT+1 to DAU Word Count Register. Note 
that the actual transfer count is controlled by the 
Selector Channel for DMA transfer and the DAU word 
count may be set to any value larger than acquisition 
count for this step. 

The Control Register in the DAU is then set to in- 
dicate transfer to the 7/32 and a DMA transfer is set 
up and run. 

- Makes SVC calls to OS for I/O via DAU driver. 

- Requires Logical Unit 1 set to DAU. 

- Language - Common Assembly Language (CAL) . 



that the prestart procedures be retained in any data acqui- 
sition program. These problems should be considered in the 
future data acquisition units and corresponding software. 

AP-120B programs are well documented in the manuals 
/ 20 - 24_/ provided by Floating Point Systems. To easily 
use these programs a CSS command has been provided. The CSS 
command allocates the necessary files; starts the program 
APAL; on completion of APAL, APLINK is started; on comple- 
tion of APLINK, APSIM is started. Once APSIM is terminated 
the CSS command is cleared. With this CSS command one can 
assemble the source program into a machine code for the 
AP-120B and test it on the simulator - all by one command. 

The HP 9830 primary function has been control of 
devices on the IEEE 488 bus. Programs have already been pre- 
sented /T2, 14, 16 / that communicate on this bus. Whatever 
changes that come to the bus there is one potential stumbling 
block which can be avoided. All devices on the bus have 
addresses. Some of these addresses have been set in by 
hard wiring, others by switches. The switches make it easy 
to change the addresses. But this should be done with cau- 
tion, because the probability of having one address for two 
devices is possible. Table VIII provides the current direc- 
tory for the IEEE 488 bus. Should these addresses change 
and/or devices change the reaif ications are not only to 
addressing conflicts but also to past proven programs. "If 
it can happen it will". Scenario: the bus appears bad, 
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because an addressing conflict occurred due to a change in 
equipment where the change was not known to the programmers . 
A proven program might then be run as a "test" . The test 
will fail. At some time later the addressing conflict will 
eventually be discovered. 

Some problems with the HB IB exist and no solution 
is apparent at this time. First it is not understood why 
the remote command (768) must be output on the bus twice to 
place all the devices in remote. Sometimes issuing the re- 
mote command will work. But issuing it twice has always 
worked on all devices. To use the "VAL" statement to read 
the HB IB ensures that the "COM" statement and "DIM" state- 
ments are well understood. If these are not used correctly 
the "VAL" statement will not pass the correct value. The 
use of all statements are well covered in the string vari- 
able ROM manual and operating manuals by Hewlett Packard 
/25, 26, 27/. Due to the format of the output from the time 
code generators made by Systron Donner the output must be 
read in segmented strings and not in one string variable. 

The bus follows strict instructions. It is not sufficient 
to enable a device in an output mode. The device must also 
be told to "talk" as in the case of the digital volt meter 
(HP 3490A) . 
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V, CONCLUSION 



The software portions of the SATCOM Satellite Signal 
Analyzer documented in this thesis have been developed, and 
tested successfully. Further software modifications are 
recommended a) to increase the throughput of the system, 
b) to allow windowing, and c) to allow greater flexibility 
in the output. 
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APPENDIX A 



CONTROL BUS AND CONTROL BOARD OPTION 'A' 

DIAGNOSTIC MANUAL 

1. Control Board Option 'A' Test Program 

1.1 Related Documents: 

Test Program 

Universal Logic Interface Instruction Manual 29-311 

1.2 Test Programs to be run prior to loading tnis test: 

Series 32 Basic Test 06-158 

Series 32 Processor Test 

Part 1 06-154 

Part 2 06-155 

Part 3 06-178 

Series 32 Memory Test 06-156 

TTY Basic Confidence Test 06-004 

2. Purpose of Test 

2.1 General Test Information 

The Control Board Option 'A' Test Program is used to 
check the proper operation of the Control Board and Option 
'A* board (CBOA) . Byte data transfers are exercised. Output 
commands. Status Request and the interrupt mechanism are also 
exercised . 

2.2 Test Description 

The program checks the byte mode by writing a shift- 
ing data pattern that is alternately a One (1) in a field of 
Zeros (0) and a Zero in a field on Ones. The data written 
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is read back from the module and compared to the original 
pattern. The same pattern is used to test the status return 
and command latches. After data transfers are complete, the 
interrupt mechanism is tested. Output commands are used to 
disarm, arm and enable the CBOA and generate an interrupt. 

The device number on acknowledge is also checked. 

3 . Minimum Hardware Required 

The following is a list of hardware necessary to perform 
this test: 

1. The 7/32 Processor 

2 . 8KB of Memory 

3. Console Input/Output Device (See Appendix B) Teletype 
or CRT 

4. Device under test - CBOA 

5. Option Board 'A' Test Connector 

4. Requirements of Machine Under Test 

4.1 Test Configuration 

The option board 'A' test connector must be attached 
on the output of option board A. The wiring pin diagram is 
described in Appendix E. 

4.2 Device Address 

If the control board address is other than X'8F' 
enter the device address by using the DEVADR option. 

4.3 Console Device 

If the console device is other than a teletype with 
device address of X'02' see Appendix B for program modification. 
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Loading Procedures 

5.1 Normal Loading Procedures 

1. Manually enter the X’50' sequence shown below: 



Location 



Contents 



X' 30 ' 


X' 0000' 


X ' 32 ' 


X'0000' 


X ' 3 4 ' 


X' 0000' 


X' 36 ' 


X' 0050 ' 


X ' 50 ' 


X 1 D500 1 


X ' 52 ' 


X' 00CF' 


X' 54 ' 


X' 4300 ' 


X' 56 • 


X' 0080' 


X ' 78 1 


X' 45A1 1 


X' 78 ' 


X' 55A1 ' 



For CAS1 
For CAS 2 

2. Place cassette in CAS1 or CAS 2; Power ON; Rewind 
to load point; Switch to ON line 

3. Execute at address X'30' (DTA, 30, ADR, RUN) 

The boot loader will load first 

Hit RUN - File mark passes by 
Hit RUN - Second file mark passes by 
Hit RUN - Program loads - All zeros come up on 
display. If not, rewind tape; start 
this step again. 

4. Refer to Appendix B and set up the addresses 
for Console I/O Device if other than teletype. 

5. Address location X'AOO' DTA, A00, ADR 

6. START program execution. Observe that the 
following title is printed on the console device: 
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CONTROL BOARD & OPT A TEST 



6. Operating Procedures 

6.1 Normal Testing 

1. Ascertain that OPTION BOARD A TEST CONNECTOR is 
properly plugged in. 

2. When an asterisk (*) is printed enter the de- 
sired options via the console device. Refer to Appendix C 
for the option explanation. 

3. Enter the RUN command via the console device. 

4. If no errors are detected, characters "NO ERRORS" 
are printed almost immediately after execution. Should an 
error occur, refer to section 6.2 for the appropriate action. 

5. To re-execute the test, enter the RUN command 
via the console device. 

6 . 2 Error Procedures 

If an error is encountered, the Processor loops on 
the failure, the error number is displayed on Dl of the 
Processor Display Panel, and the error number is printed on 
the console device. Refer to Appendix D for the meaning of 
the error number. 
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APPENDIX B 



CONSOLE DEVICE DEFINITION 

1. The halfword labelled I/O (see the listing) has the de- 
fault value for Teletype (address X'02') as the console de- 
vice. If the configuration is different, the test program 
must be changed as follows: 

0 78 15 

T /n Console Device 

1/U Identifier 



Console Device Explanation 

Identifier 

X ' 01 ' GDT/CRT on PASLA/PALM Interface, 

strapped for FDX and the highest 
baud rate 



X ' 02 ' TTY on TTY Interface 

GDT/CRT on Current Loop Inter- 
face 



0 ,X ' 03-X ' FF ' 



Reserved. The program defaults 
it to 2. 



2. The teletype or Current Loop Interface, if used, should 
be strapped for the device address of X'02'. If it is 
different, the halfword labelled TTYADR (see the listing) 
must be changed accordingly. 

3. The GDT (Graphic Display Terminal) or CRT; is used on 
PASLA Interface, should be strapped for the device address 
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of X'10' and X'll' for receiving and transmitting side res- 
pectively. If it is different, the halfword labelled CRTADR 
(see the listing) must be changed accordingly. 
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APPENDIX C 



Option 

DEVADR 

INTRPT 



OPTION TABLE 



Default Value 



Description 



X'8F' Specifies the device ad- 

dress of the Control Board 



X'O' Specifies whether the CBOA 

interrupts will be tested. 

0 = interrupts are tested. 

1 = interrupts are not 

tested. 
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APPENDIX D 



FAILURE NUMBER DEFINITION 



NUMBER FAILURE 



There is no error 01 



02 


Byte Mode of Byte to Half- 
word Mode Data XFER 


R4 = Data Written, 
R6 = Data Read 


03 


Sense Status Bits (0:3) 


R4 (12:15) = Test Data 
R6 (12:15) = Error Bits 


04 


Output Command Bits (4:7) or 
Sense Status Bits (4:7) 


R4 = Output Command 
R6 = Returned Status 


05 


Unsolicited Interrupt 




06 


No Interrupt 




07 


Wrong Device Number Re- 
turned on Acknowledge 


R4 = Received Device 
Number 


08 


Acknowledge Does Not Reset 
Attention 





Interrupt Level = X Where X = Register Set 

that the Interrupt Vec- 
tored into. 
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020 

0 30 

040 

050 

060 

070 

000 

010 

020 

030 

040 

050 

060 

070 

0 



in 

16 

34 

15 

33 

14 

32 

19 

37 

18 

36 

17 

35 

16 

34 

15 



APPENDIX E 



OPTION BOARD A TEST CONNECTOR 



to Signal Pin to 



DOT 


060 


26 


DOT 


070 


8 


COT 


040 


27 


COT 


050 


9 


COT 


060 


28 


COT 


070 


10 


DOT 


000 


7 


DOT 


010 


25 


DOT 


020 


6 


DOT 


030 


24 


DOT 


040 


5 


DOT 


050 


23 


DOT 


060 


4 


DON 


070 


22 


COT 


040 


3 
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APPENDIX F 



POWERING UP THE SSA 



A. OBJECTIVE 

The objective of this appendix is to provide procedures 
for powering up the host computer, Interdata 7/32, the disc 
drives, and other peripherals. Also included are the steps 
to be followed to boot load an operating system. 

B. CONDITIONS 

In following these procedures there are only two de- 
cisions that must be made. They are: 

1) Is the computer up with a good operating system? 

2) Which peripherals are needed? 

The condition of the computer being up with a good operating 
system can be recognized by either all zeros in the hexa- 
decimal display or with date and time displayed in the hexa- 
decimal. The date will show the day and month using two 
characters each - the order might be reversed depending on 
the operating system. But the time in hours and minutes is 
shown always in the last (right most) four characters. If 
the display has anything else it does not have an operating 
system in it. 

Examples : 

bDDMMHHmm - Good operating system 
bMilDDHHmm - Good operating system 
bCODEnnn - Crash code of nnn - bad system 
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000000000 - Good operating system 
C00000000 - Good operating system 

where 

b = blank 
D = day 
M = month 
H = hour 
m = minute 
n = number 
CODE = CODE 

C. PROCEDURES - POWER UP 

1. Computer up, with good operating system (lights 
across front display either the date and time, or all zeros) , 
if not go to 2. 

a. Turn main power switch to console table ON (Phase 
C, Branch 4, also other main power switches for other peri- 
pherals) 

b. Turn Super Bee console ON (switch in back of 
console, lower right, facing the back) 



1 . 


Push 


"RESET" 






2. 


Push 


"CLEAR" 






3. 


Push 


"ONLINE" 


on the keyboard 


Discs 








1 . 


Turn 


power ON 


(one or 


both drives) 


2. 


Wait 


for "LOAD 


" light 




3. 


Insert or remove disc 


pack 


4. 


Close 


: cover 
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5. If cartridge is loaded, push "RUN" 

6. Disc is ready to be marked "ON" in the 
operating system when the "READY" light is lighted. Note 
to operate a fixed disc a removable disc must be loaded. 

d. Teletype 

1. Turn switch to "ON LINE" 

e. Printer 

1. "ON" 

2. "RUN" 

f. Tektronix 

1. "ON" - lower right on stand 

2. After tube blooms, "RESET" 

Only turn on those peripherals needed for a given 

session 

2. Computer down, unreliable operating system (lights 
across front off, or displaying an error code) 

a. Turn computer power ON, phase main switch (first 

switch) 

b. Turn console table power switch ON, Phase C, 

Branch 4 

c. Turn Super Bee ON (switch in back, lower right - 
facing back) 



1 . 


Push 


"RESET" 


2. 


Push 


"CLEAR" 


3. 


Push 


"ONLINE" on the keyboard 
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d. Disc 

1. Turn power ON 

2. Wait for "LOAD" light 

3. Select a disc pack that was not marked "ON" 
at crash time, and that has a copy of the operating system 
that one wants. It is possible that the system has crashed 
while a disc was in the drive or while a disc was not in the 
drive. The significance is that the boot loader will only 
get a operting system off of a disc that was not marked "on" 
when the crash occurred. All discs must be marked "off" be- 
fore removing so that the system file manager closes all files. 
A crash or power failure could occur or the user could take 
his disc out before the disc was marked off. This would make 
it impossible to load a operating system from that disc until 

a disc check utility program was executed (DISCHECK) . With 
the exception of the diagnostic disc pack and the disc pack 
titled "MON 1" (for Monterey number 1) all discs have operat- 
ing systems on them. They will have an extension "-.001". 

4. Insert pack; close cover. 

5. Make sure all switches on the Loader Storage 
Unit are in the OFF position. 

6. Make sure there is a cartridge in the drive 
you are using then switch to "RUN". 

e . Computer 

1. Turn key to "ON" 

2. Make sure "WAIT" is lit, if not press INI". 
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If "WAIT" does not come back on look at console screen, 
follow instructions if any. Then go to C.15. If nothing 
intelligible comes up on the screen attempt to continue at 
C . 3 " DTA" . 



3 . 


DTA 






4. 


7 






5. 


8 






6. 


ADD 


"78" appears at right in 


display 


7. 


RD 


"7A" is displayed on the 


left on the 






lights 






007A 


XXXX 

= next address 




next 

address 


contents of location "78 


If 


8. 


RD 


"7C" is displayed on the 


left, one 



of four codes is displayed on the 
right, as the contents of location 



"7A" : 

% 

C633 Removable upper cartridge 
C732 Fixed upper disc 
D633 Removable lower cartridge 
D732 Fixed lower disc 

9. If the code displayed is not the one for the 
"READY" disc pack with the operating system on it, the code 
must be changed. For example, if you were going to take 
the operating system off of the lower removable cartridge: 
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DTA 



10 . 
11 . 

12 . 

13. 

14. 



a . 



b . 


7 


c • 


A 


d. 


ADD 


e . 


DTA 



f. D Code for removable lower car- 

tridge 

g . 6 

h. 3 

i. 3 

j . WRT 

Check for writing correctly to "7A" 

a . 

b. 

c . 

d. 

e . 









DTA 

7 

A 

ADD 

RD 



7C 



D633 



RD 7E B6F1 

RD location "7E" contains 

the extension number. 

80 0001 (.001) 

LSU, switch ON 

Press "INI", listen for the disc to start up 



Look at Super Bee, "OS32MTO 3-01" 
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15. Turn LSU switch OFF again 

16. Switch INTERDATA key from ON to LOCK 

D. PROCEDURES - POWER DOWN 

1. Type DAM. (Display Map) Note if there are any tasks 
resident or running. 

2. If tasks are running stop them by typing 

T XXXX where XXXX is the name of the task - 

(Set task to XXXX) 

CAN cancels the task - and removes from 

memory if not resident 

3. If tasks are not running but resident remove them 
from memory by typing 

T XXXX same -as in D.2 

OPT NON (option non-resident) 

CAN cancel and removes from memory 

4. Type DAD (display devices) 

5. Mark all discs off. i.e. MAADl:, OFF (updates disc 
directory) 

6. Discs 

a. Press Run - Load switches to LOAD 

b. Wait for LOAD light 

c. Take out cartridge 

d. Power OFF 

7 . Super Bee 

a. Press RESET 

b. Press CLEAR 
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8 . 



c. Switch power OFF 
Printer 

a. STOP 

b. OFF 

9. TEKTRONIX 4014-1 and 4631 

a. Power OFF on 4631 (HARDCOPY UNIT) 

b. "RESET PAGE" on 4014-1 

c. Power OFF (on pedestal) 

10. ANN-ARBOR 

a. Power OFF logic unit (below right console table) 

b. Power OFF on video CRT 

11. Computer is usually left on. If it is turned off a 
cold start will usually be needed to bring it up again. To 
turn it off, key to OFF. 

12. Wall power 

a. Phase C, branch 4 main: OFF(center table), 

Phase A as appropriate. 

b. IF Computer key is OFF and AP-120B is OFF, then 
Phase B main OFF. (Usually leave ON.) 

"A" means one space; " (CR) " means carriage return. 
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APPENDIX G 



CREATING, COMPILING, AND RUNNING 
A FORTRAN PROGRAM 



1. CREATING A PROGRAM 



Programs are written using the utility program EDIT32. 
This program can be run on many discs by typing the letter 
"E" or "EDIT32". Before typing to run the EDIT 32 program, 
the following procedure should be followed: 

a. VA xxxx to set the system volume, where xxxx is the 
4 character mnemonic for the disc pack. Then mark the drive 
containing that pack ON . 

b. Make sure that the system volume has a copy of the 
Command Substitution program E.CSS or EDIT32 . CSS on it, if 



not, change volumes: 

1. DAF, - .CSS 

2. DAF, -.CSS, TTY: 

3. If E.CSS or 
EDIT32 . CSS 

(a) 

(b) 

To run the Editor: 



Display all files on the sys- 
tem volume with extension 
.CSS 

Display files of extension 
type .CSS on the teletype 
(make sure teletype is ON 
LINE) 

does not show up on the list- 
system volume to another disk 
pack. That is, suppose the 
lower cartridge, names M0N4:, 
had a copy on it, then: 

Physical Location 

Volume = MON 4 



MARK D3 : , ON 
VAM0N4 : 

Read Reference Manual / 19 /. 
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2. COMPILING A FORTRAN PROGRAM 



See "Creating a Program" to store the source (human- 
readable form) program on the disk. For the purpose of this 
discussion, assume the FORTRAN program is NEWPROG . FTN . 

First make sure the printer is on, use the CSS program. 
FORT, CSS to compile, assemble, and establish the program as 
a task. 

Example: FORT NEW PROG 

(Extension Type .FTN is assumed) 

The .CSS file FORT, CSS uses a TET (Task Establisher) file 
to actually set up the task, and to determine which, if any, 
libraries should be searched to resolve external references 
in the source program. If a file of the name NEWPROG. TET 
exists on the system volume, FORT, CSS will use it to deter- 
mine the necessary procedure to establish the task. If not, 
it uses its own standard version TET program, which, among 
other things, only searches the FORTRAN Runtime libaray to 
resolve external references. This means that if the user 
references any other programs (already in object form) , one 
must write a TET file to tell the system where it can find 
these mysterious programs. (Example: to run the Tektronix 

Terminal Control System, the user's program references must 
be resolved against the Tektronix library and the FORTRAN 
Run Time Libaray . ) 

Upon successful completion of the FORT. CSS commands, 3 
completion codes of zero should be returned to the operator. 
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one for the FORTRAN Compiler, one for the Assembler and one 
for the Task establisher. If all of these Completion Codes 
are zero, and if the printer man shows no undefined terms, 
the task is ready to be loaded. If the return codes are 
other than zero, there are errors in the program. The task 
must be cancelled: CAN, and the listing must be examined 

to determine where the problems are. Usually the source 
program will have to be corrected. If undefined terms 
appear in the printer map, it means that the Task Establisher 
was unable to find all of the programs and/or subroutines 
that the user required, in the libraries given in the TET 
program (either user written or system default) . One must 
ascertain where those programs may be found, and include or 
edit them in the appropriate TET routine, as described 
below. 

If no subroutines beyond the standard FORTRAN RUN TIME 

LIBRARY are required, then no further action is required. 

If, however, AP-120B subroutines, PLOT 10 subroutines, etc., 

then (a .TET file) must be created as follows using the EDIT 

sequence (or the OS 'BUILD' command. Example follows: 

Filename = name. TET where "name" is the same as the 

"name" in name. FTN 

This .TET file should be as follows 

(Col . 1) 

+ 

LOG 

REMOTE 
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ESTABLISH TASK 



MXSPACE 2800 
OPTIONS F 
GET 600 
INCLUDE 

EDIT DAUSUP . OBJ 

EDIT TCSLIB . OBJ 

INCLUDE APSUP . OBJ 
EDIT APLIB . OBJ 

EDIT FVRTL . OBJ 
BUILD TASK, name. TSK 



< Includes Main Program and 
your own subroutines . 

< Optional - for DAU support 
programs, if required. 

< Optional - TEK 4014-1 Plot 
10 Programs if required. 

< Optional AP-120B programs 
if required. 

< Required for all FORTRAN 
programs 

< Here again "name" is the same 
as in name. FTN. 



MAP 

END 



The "EDIT FVRTL. OBJ" line must immediately precede the 
"BUILD TASK" line. 

3. RUNNING A PROGRAM 

If a program has only logical units 5 and 6 ( READ ( 5 , - ) , 
WRITE (6,-) ) required with 5 assigned to CON: (Super Bee 

KYBD and CRT) and 6 assigned to PR: (line printer) , then, 

assuming the FORT step described previously was successful, 
proceed to run your program with the RUN. CSS command. 

EXAMPLE: RUN NEWPROG 

If other devices are required, such as the TEK 4014 or 
AP-120B, then a .ASN assignment file should be built in the 
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same way as the .TET file using the editor. 

This file should be as follows: 

ASSIGN 1, DAU: < Required if DAU support routines are 

used . 

ASIGN 7, GDT: < Required if PLOT 10 routines are used 

for TEK 4014-1. 

ASSIGN 10, APX: < Required if AP-120B routines are used. 

ASSIGN 12, APR: 

(Other assignment statements as required for the READ, WRITE 
statements in your program. See OS/32MT Reference Manual for 
use of "Allocate" and "Assign" commands for use with disc 
files, as required.) 

$EXIT < Required . 

After this file has been built you may proceed with the RUN 
command as described. 

If both the .TET and .ASN files exist, you may combine the 
FORT and RUN steps with FORTCLG. 

EXAMPLE: FORTCLG NEWPROG 

4. MISCELLANEOUS OF FORTRAN COMPILATION AND ASSEMBLY 

a. This FORTRAN "Compiler" translates source code to 
objective code. It translates it to assembler. Then the 
assembler (CAL, for Common, Assembler, Language) translates 
it to object form. 

One must become familiar with the idea that programs 
use other programs as input. This is how a (real) FORTRAN 
compiler works. When we write a FORTRAN program, it becomes 
data for the FORTRAN compiler (which is merely a hugh program. 
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written in any language) which changes the characters input 
into other characters, which just happen to be valid machine 
code, so that if a computer programmer should by some chance 
try to execute these characters, they would do roughly what 
the original programmer had intended. When we write the FOR- 
TRAN statement, I - 1, the compiler changes it to machine 
instructions to: 

1. Set aside a table of variable references. 

2. Insert "I" as the name of a variable. 

/ 

3. Assign it a unique storage location. 

4. Store the value "1" in this location. 

The output of this FORTRAN compiler will be a machine pro- 
gram, it can be loaded into memory and executed. TET, CUP, 
CAL, etc. , are all programs that use other programs as input. 

b. Definition: Library - A series of objective programs 

starting with a label, divided by labels, and ending with a 
label of "ENDVOL". Purpose of a Libaray - To resolve ex- 
ternal references of some main program before trying to 
execute it. EX - Main routine calls SUBROUTINE A - A calls 
B, B calls C. These routines are order ABC in the library. 

If ordered ACB, then A would link to our main routine. But 
since C was not called by A it will not be linked. A called 
B, link it now, at the end of the file, and B needs C, but 
there is no C. 

c. Always delete the old .TSK file prior to a new FORT 
step . 
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d. Disc space is limited, please delete old files not 
in use. 

e. Local CRT Driver was modified December 1977 to change 

control characters. Character '#' (X'23') and (under- 

score) (X'5F') are now valid printing characters. The function 
of line delete is provided by 'control X' (X'08') and the 
character delete (backspace) by 'Control H' (X'18'). This 
change was required to permit the full range of Graphics In- 
put characters of the TEKTRONIX 4014-1. 

Devices affected: 

GDT : TEKTRONIX 4014-1 

CON : Super Bee KYBD/Video Display 

For TTY: ' ' is character delete 

' # ' is line delete 

f. When writing an interactive program, that is, a 
program that actually waits for the user to supply data, via 
the Console's Teletype, etc., be sure to include a write 
preceding every read, to tell the user what is expected. 

Example : 

Write (6, 10) 

10 Format ('enter frequency in Hz, Format 
F8 . 1 ' ) 

Read (5, 20) • Frequency 

20 Format (F8.1) 

Without this write, the computer merely stops, waiting 
for input of "Freq." without telling the person at the con- 
sole what it is waiting for. 
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APPENDIX H 



LOADING INTERDATA PROVIDED DIAGNOSTIC 



These diagnostics are on paper tape, disc and magnetic 
tape. The primary references for these diagnostics are the 
Multi-Media Diagnostic Loader (32 Bit) , Publication I/B06- 



176F02, Interdata, Inc., April 1975, and the individual test 
program manual. This system has the ability to load diagnos- 
tics from paper tape, the magnetic tape and the disc. 

Loading via paper tape will not be covered. Loading from 
the disc is faster than loading from the magnetic tape. The 



sequence follows. 



1. Loading Diagnostic Programs From Disc 

a. Place Diagnostic Magnetic Tape on the drive. 

b. Power it up and load the tape. 

c. Place diagnostic disc in upper drive. 

d. On the hexadecimal display, enter the following: 



DTA 

78 

ADR 

DTA 

(95A1 
(4 5A1 
(55A1 
WRT 
C600 
WRT 
0001 
WRT 
DTA 
30 
DTA 
WRT 
DTA 
WRT 



if the left cassette drive is being used) 
if the right cassette drive is being used) 

(D600 if disc is going to be in lower drive) 



to zero 30, 31 
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DTA 
WRT 
DTA 
WRT 
DTA 
50 
WRT 
DTA 
50 
ADR 
DAT 
D500 
WRT 
DTA 
00CF 
WRT DTA 
4300 
WRT 
DTA 
0080 
WRT 
DTA 
30 

ADR 

DTA 

RUN 



to zero 


32, 


33 


to zero 


34, 


35 



e. Observe "FFFF" in the right most section of tne 
display. If this is not present, retry the proces's again. 

If it continues to fail, go to the primary reference and get 



help ! 



f. If you had a good load "FFFF" will be present. 
This means you may now use this program to load the diagnos- 
tics on the disc pack labeled diagnostic. 

To restart this program, which must be done every 
time you want a different diagnostic , first attempt the 
following : 

DTA 

6000 

ADR 

RUN 
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If "FFFF" comes up again you are in luck. If it does not, 
reload the Multi-Media loader by going to C. 
g. To load the diagnostic push: 



DTA 

XXXX 

RUN 

Where XXXX is the sequence number to the diagnostic you de 
sire to run as shown in Table IX. 



2. Loading Diagnostics From Magnetic Tape 

a. Place magnetic tape on the drive. 

b. Power drive up and load the tape. 

c. On the hexadecimal display enter the following 



DTA 

30 

ADR 

DTA 

WRT 

DTA 

WRT 

DTA 

50 

WRT 

DTA 

50 

ADR 

DTA 

D500 

WRT 

DTA 

00CF 

WRT 

DTA 

4300 

WRT 

DTA 

0800 

WRT 

DTA 

78 

ADR 

DTA 



to 


zero 


30, 


31 


to 


zero 


34, 


35 


to 


load 


address 36 with a "50" 
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95A1 

WRT 

DTA 

WRT 

DTA 

WRT 

DTA 

1 

WRT 

DTA 

30 

ADR 

DTA 

RUN 



d. 



e . 

diagnostics 



f . 

g- 



Same 


as 


Same 


as 


off of 


Same 


as 


Same 


as 



l.d 

l.e except now you are going to get the 
the tape, 
l.d 
l.d 
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TABLE IX 

DIAGNOSTIC LISTINGS 



SEC # 


0 

1 


REV 


001 


176 


00 


002 


178 


00 


003 


177 


00 


004 


177 


00 


010 


003 


08 


Oil 


003 


08 


012 


003 


08 


013 


106 


06 


014 


106 


06 


015 


128 


01 


016 


135 


01 


017 


143 


00 


018 


144 


00 


019 


158 


00 


01 A 


153 


00 


0 1 B 


154 


02 


01C 


155 


01 


0 1 D 


156 


02 


0 1 E 


156 


02 


OIF 


156 


02 


020 


148 


00 


021 


148 


00 


022 


159 


02 


024 


162 


00 


025 


162 


00 


026 


178 


00 


027 


157 


00 


028 


157 


00 


102 


071 


00 


103 


101 


00 


106 


127 


01 


109 


132 


02 


10E 


140 


00 


1 10 


147 


00 


1 1 1 


1 49 


00 


112 


1 4Q 


00 


113 


150 


00 


114 


151 


00 


115 


163 


01 


117 


166 


CO 


IIP 


167 


00 


119 


179 


00 


120 


165 


03 


200 


161 


01 


202 


160 


02 


203 


160 


02 


300 


168 


00 


301 


16? 


00 


302 


170 


01 


303 


171 


oc 


304 


172 


00 


305 


173 


00 


306 


• 173 


00 



NAPE 

FOl MULTI MEDIA DI. LDR 
F02 MULTI MEDIA DI. LDR 
FOl MULTI MEDIA DI. GEM 
F02 MULTI MEDIA DI. GEN 
MEMORY TEST PART 1 
MEMORY TEST PART 2 
MEMORY TEST PART 3 
PROCESSOR TEST PART 1 
PROCESSOR TEST PART 2 
MODEL 50 PROCE CC 0° TEST 



LOW HIGH 

16BIT 04000 04 A 1 F 

323 IT 06000 06B1F 

16BIT 05000 06 F47 

32BIT 07000 09069 

01000 0152F 

00080 0 10 IB 

00080 004CD 

002D0 ' 01FFF 
002.DO 01D62 

00080 01FA0 

00080 OOBFA 
00080 00305 

00080 000 A3 

00080 0029F 

OOAOO 02C18 
OOAOO 03F1C 
OOAOO 0307E 
02000 02663 

OOAOO C184F 
OOAOO 014CB 
00080 004 AP 

01000 012EB 

OOAOO 059D7 
00080 003C3 

01000 01345 

OOAOO 01A7B 
0484F 
01617 
002FD 
OOFBF 
02B7B 
01C27 
018B5 
0233B 
01001 
00E61 
00F5F 
00E53 
017CB 
02E7B 
03955 
0 1 ADD 
0279E 
0 IB 1 1 
01C1B 
10D6D 
01F0F 
02 1 1 D 
01BF7 
032E5 
02FC9 
036B1 
02B0F 



MEMORY PROTECT TEST 
MOS MEMORY HOLD I"ST 
MOS PARITY INITIALIZE TEST 
SERIES 32. BASIC TEST 
MODEL 7/32 MW PROCESSOR TEST 
SERIES 32 PROCESSOR TEST PARTI 
SERIES 32 PROCESSOR TEST PART2 
FOl SER. 32 MEMORY TEST PART 1 

F02 SER. 32 MEMORY TEST PART 2 

F03 SER. 32. MEMORY TEST PART 3 

SERIES 6A MEMORY TEST PARTI 
SERIES 6A MEMORY TEST PART2 
SERIES 32 SYSTEM EXERCISER 
02-340 MEMORY TEST PART 1 
02-340 MEMORY TEST PART 2 
SERIES 32 PROCESSOR TEST PART3 



32 BIT SER. 6A MEM. TEST PARTI 04000 
32 PIT SER. 6A MEM. TEST PART2 OOAOO 
801 AUTO CALL UNIT TEST 00080 
DIGITAL MULTIPLEXOR TEST OOAOO 
PALS OFF-LINE TEST OOAOO 
201/301 DATA SET ADAPTER TEST 00400 
DYNAMIC CONTROL STORAGE TEST OOAOO 
CONVERSION EQUIPMENT TEST OOAOO 
FOl MUX BUS SWITCH TEST PARTI OOAOO 
F02 MUX BUS SWITCH TEST PART2 OOAOO 
SENSE CONTACT MODULE TEST OOAOO 
RELAY DRIVER TEST OOAOO 
GRAP. DISPLAY TERMINAL TEST OOAOO 
FOl SA 360/370 IF. TEST INTER. OOAOO 
FOl MA 360/370 IF. TEST INTER. OOAOO 
16 BIT SELCH T^ST OOAOO 
SERIES 32 LSI' SIP’ORT PROGRAM OOAOO 
EXTENDED SELECTO" CHANNEL TEST OOAOO 
FOl MEMORY ACCES° TEST PART 1 OOAOO 
F02 MEMORY ACCESS TEST PART 2 OFFFg 
COMMON HSPT READER/PUNCH TEST OOAOO 
COMMON CARD READER TEST OOAOO 
COMMON LINE PRINTER TEST OOAOO 
COMMON CASSETTE TEST OOAOO 
COMMON MAG TAPE TEST OOAOO 
FOl COMMON DISC TEST OOAOO 
F02 COMMON DISC FORMATTER OOAOO 
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SERIES 32 BASIC TEST 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 019, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, 0080, ADR, RUN -the program is now running 

Observe F2 in display and follow page A2-1 in BASIC TEST 
MANUAL. Program MUST stop after "S32BT" . If it does not 
start again at 0080. The alphabet and numbers 0-9 will 
follow after a second push on the run button. 

You may then input from the keyboard to check the echo. 
Sample Output: 

S32BT 

ABCDEFGHI JKLMNOPQRSTUVWXYZ 0 12 3 456789 

INPUT FROM KEY BOARD 

1234567890 :-QWERTYUIOP 
ASDFGHJKL; ZXCVBNM, ./ 



124 



APPENDIX J 



SERIES 32 PROCESSOR TEST PART 1 
It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, IB, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type 7X on TTY and observe display count to A for test num- 
bers 2-A. 

Sample Output: 

S32PT1 R02 

CPU 

* 

7X 

NO ERROR 
000A 0000 
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SERIES 32 PROCESSOR TEST PART 2 
It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "ffFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 1C, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type 7X on teletype after teletype stops printing and follow 
instructions. After subtest enter the number for the test 
you desire. We have tests 1, 2, 3, 5, 6, 7. After entering 
a number hit return key. 

The "BRK" stands for BREAK key on teletype - 
Function 0 the FN key and 0 key on the hexadecimal display. 
Power Off /On is the key switch on the hexadecimal display - 
On Test 6 observe the hexadecimal display step through each 
part of test 6 by pushing the break key. After F is printed 
press break key and return key. 

Sample Output: 

S32PT2 R01 

CPU 

* 

IX 

SUBTEST 

* 
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Sample Output (Continued) 



1 

DEPRESS KEYS 

1234567890 

1234567890 

DEPRESS KEYS 

1234567890 

1234567890 

NO ERROR 

SUBTEST 

* 

2 

PRESS BRK 
NO ERROR 

SUBTEST 

* 

3 

PRESS BRK 
FUNCTION 0 
NO ERROR 

SUBTEST 

* 

5 

1234567890 

1234567890 

ABCDEFGHIJ 

1234567890 

DEPRESS KEYS 

1234567890 

1234567890 

1234567890 

DEPRESS KEYS 

1234567890 

1234567890 

ABCDEFGHIJ 

SUBTEST 

* 

6 

ABCDEF 
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Sample Output (Continued) 



SUBTEST 

* 

7 

INITIALIZE 
PRESS BRK 
POWER OFF/ON 
PRESS BRK 
NO ERROR 
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SERIES 32 PROCESSOR TEST PART 3 
It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF” is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 2 6 1C, RUN -wait for "FF" to appear 

Once the "FF” appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type 7X on teletype and follow instructions . 

Function $ one FN and 0 key on hex decimal display 
Sample Output: 

S32PT3 R00 

CPU 

* 

7X 

MAC RESPONSE AT 000300 

SUBTEST 

* 

1 

NO ERROR 

SUBTEST 

* 

2 

NO ERROR 

SUBTEST 

* 

# 

FUNCTION 0 
FUNCTION 0 
FUNCTION 0 
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Sample Output (Continued) 



DEPRESS KEYS 

1234567890 

1234567890 

DEPRESS KEYS 

1234567890 

1234567890 

NO ERROR 



SUBTEST 



APPENDIX M 



SERIES 32 MEMORY TEST PART 1 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, ID, RUN -wait for "FF" to appear 

Once the "FF” appears then enter: 

DTA, 2000, ADR, RUN -the program is now running 

Press Run again - observe an 

Press Return Key and observe the sample output on the tele- 
type. 

S32MT1 06-156F01R02 
* 

01 

02 

03 

04 

05 

06 

NO ERROR 
* 
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SERIES 32 MEMORY TEST PART 2 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF'' is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, IE, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Observe on teletype the available. One board of memory re- 
presents 32k words - for 8 boards that is 262. Available 
memory is printed out from the lowest location to the high- 
est location. Example: 0000 - 3FFFF would mean that boards 
.1 through 8 are good. If a board or part of a board is bad 
on would observe the available memory broken up - Example: 

00000 - 17FFF 
2000 - 2BFFF 
2E000 - 2FFFF 

The Board Breakdown by memory is as follows: 

MEMORY BOARD NUMBER MEMORY 

1 0 - 7FFF 



2 


8000 - FFFF 


3 


10000 - 17FFF 


4 


18000 - 1FFFF 


5 


20000 - 27FFF 


6 


28000 - 2FFFF 


7 


30000 - 37FFF 


8 


38000 - 3FFFF 
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For one run, type 0, Return 

For continuous Runs, Type L, Return. The BRK Key will ter- 
minate continuous runs . 

Sample Output: 

S32MT2 06-156F02R02 
AVAILABLE MEMORY 

00000 -3FFFF 

SUBTEST 
* 1 

01 

NO ERROR 

SUBTEST 
* 2 
02 

NO ERROR 

SUBTEST 

* 3 

03 

NO ERROR 

SUBTEST 

* 4 

04 

NO ERROR 

SUBTEST 

* 5 

05 

NO ERROR 

SUBTEST 

* 6 

06 

NO ERROR 

SUBTEST 
* 7 
07 

NO ERROR 
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Sample Output (Continued) 



SUBTEST 
* 0 
01 

NO ERROR 
02 

NO ERROR 

03 

NO ERROR 

04 

NO ERROR 

05 

NO ERROR 

06 

NO ERROR 
07 

NO ERROR 



SUBTEST 
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SERIES 32 MEMORY TEST PART 3 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA , IF, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Observe *, hit carriage return. 

Observe the hexadecimal display count through memory - 

For continuous test type L and return - 

Sample Output: 

S32MT3 06-156F03R02 
AVAILABLE MEMORY 
00000- 3 FFFF 

* 

NO ERROR 
* 
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MEMORY ACCESS TEST PART 1 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 202, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type Run and observe results - 

Sample Output: 

MACT 06-160F01R02 
AVAILABLE MEMORY 
00000- 3FFFF 



* RUN 
TEST 00 
NO ERROR 

TEST 01 

NO ERROR 

TEST 02 

NO ERROR 

TEST 03 

NO ERROR 

TEST 04 

NO ERROR 

TEST 05 

NO ERROR 

TEST 06 

NO ERROR 
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Sample Output (Continued) 

TEST 07 
NO ERROR 
TEST 08 
NO ERROR 
TEST 09 
NO ERROR 
TEST 0A 

NO ERROR 
* 
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MEMORY ACCESS TEST PART 2 

It is assumed that the multi-media loader has been loaded 



as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 203, RUN -wait for ”FF" to appear 

Once the "FF" appears then enter: 

DTA, 10000, ADR, RUN -the program is now running 



Type Run and observe results - 
Sample Output: 

MACT 06-160F02R02 

* RUN 
TEST 00 

NO ERROR 

TEST 01 

NO ERROR 

TEST 02 

NO ERROR 

TEST 03 

NO ERROR 

TEST 04 

NO ERROR 

TEST 05 

NO ERROR 

TEST 06 

NO ERROR 

TEST 07 

NO ERROR 
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COMMON LINE PRINTER 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 302, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type Run on teletype - 

Observe results on teletype and printer - Be sure printer 
in on.' ! 

Sample Output from Teletype : 

COMMON LINE PRINTER TEST 06-170R01 

*RUN 

TEST 00 
NO ERROR 
TEST 01 
NO ERROR 
TEST 02 
NO ERROR 
TEST 03 
NO ERROR 
END OF TEST 

* 
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COMMON CASSETTE TEST 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 303, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Be sure the tape heads are clean 

As you place the cassette in the drive have the take-up on 
your left and supply on your right. 

Type "DEVADR 45" or "55" for testing the device - 45 for 
left drive, 55 for right drive. 

Type "RUN". 

Observe the tape drive . 

There are options-to see what they are type option. 

Sample Output: 

COMMON CASSETTE TEST PROGRAM 06-171R00 

* DEVADR 45 
*RUN 

TEST 00 
NO ERROR 
TEST 01 
NO ERROR 
TEST 02 
NO ERROR 
TEST 03 
NO ERROR 
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Sample Output (Continued) 



TEST 04 
NO ERROR 
TEST 05 
NO ERROR 
TEST 06 
NO ERROR 
END OF TEST 
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COMMON MAG TAPE 

It is assumed that the multi-media loader has been loaded 
as described in Appendix H, and "FFFF" is in the right-most 
position on the hexadecimal panel. 

On the hexadecimal panel push: 

DTA, 304, RUN -wait for "FF" to appear 

Once the "FF" appears then enter: 

DTA, A00, ADR, RUN -the program is now running 

Type "DEVADR 95" 

Type Run 

There are options - Type "OPTION" to list them. 

Observe tape drive . 

Sample Output: 

COMMON MAGNETIC TAPE TEST PROGRAM 06-172ROO 
*OPTION 

TEST 0,1, 2, 3, 4, 5 
LOOP 0000 
CONTIN 0000 
NOMSG 0000 
DEVADR 0085 
DV2ADR 0000 
SELCH 00F0 
INTLEV 0000 
DEVICE 0000 
MODE 0000 
TRACK 0009 
RECFIL 0100 
BYTES 00FF 
FILES 0001 
REPEAT 0003 
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Sample Output (Continued) 



IRG 


0010 


DU 


0000 


READ 


0001 


WRITE 


0001 


BKSPAC 


0001 


SKIP 


0001 


WEOF 


0000 


COMPAR 


0001 


CRC 


0000 


RDCRC 


0000 


DUMP 


0000 


DATA 


0001 


SCOPE 


0000 


TIME 


0800 


*DEVADF 


: 95 


*RUN 




TEST 00 




NO ERROR 


TEST 01 


NO ERROR 


TEST 02 




NO ERROR 


TEST 03 




NO ERROR 


TEST 04 


NO ERROR 


TEST 05 


NO ERROR 


END OF 


TEST 
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On the following pages are the program that are from the 

SATCOM Spectrum Analysis System. They are in order: 

MAIN 

LINK 

BLOCK DATA 
SPECTRL (C4) 

ILLEGAL ENTRY HANDLER 

WAIT MS 

TEKTRO 

Following the above programs are other programs . One is 
a FORTRAN program; the others are CSS programs. 
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C0 v LM0N/3LKl/LGT43(7S,10),IDE\/,NU''!,D£Cv|PT,N'J.’'IBER(l6) 

1 ,\UMR EG, FNUMRS,PT, power, PONTR 

* , J FREQ, REM6ER, INDEX, II FREQ, LPF9 '4,1 F A T N 

*,IFREQ(24,4) 

C0MM0M/3LK3/ CMD,HOLD,STAC< ( 10) ,STATE,MODE ,3UTLIS ( 1 3,6) 
COMMON /3LK4/F (1 025) ,1 20AT1 (20 50), I20AT2 (2050) 
1,3UFFER(33),DAY(2),H0UR(2),M0NT(12) 

*,V; v tAX,VMI,N,IX1,IX2,IY1,IY2,X v IN,XMAX,YMlN,YMAX,IL0C, 

*1 PUT 

LOGICAL DECMPT 
ADDRESS INTRPT 

INTEGER *4 PT, POWER, STACK, PONTR, STATE, LG TAB 
*, I DEV , NUM , 1 1 , J J , NUMB E R , I C NT , I A D C , I T I ME , I A^G , I PLOT, 
*,ILNLG,JFREQ, MODE, ICHN, RE M3 EP, INDEX, IIFREQ,IFATN 
*,C«D,HOLD,aUTLIS 
REAL F(1325),LPFBW 

INTEGER*2 I2DAT1 (2050), I2DAT2 (2050) 

INTEGER 3UFFE P (33),DAY (2) ,H0'JR(2) , w 0 N T (12) 

CALL LINK 
DO 30 1=1,2050 
I2DAT1 (I)=1 
I2DAT2 (I)=2 
30 CONTINUE 
E ND 
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SUBROUTINE LINK 

C0 v 'i v l0\/3L<1/LGTA3(78,10),IDEV,NUM,DECMPT,NUM3ER(16) 

1 ,N U M RcG, FNUMRG,PT, POWER, PONTR 
*,JFREQ, REMBER,INDEX,IIFR£'3,LPF3W,IFATN 
*■^1 FriEQ C2^^4) 

COMMON/3L<3/C W D, HOLD, STACK (10), STATE ,M0DE,3UTLIS(1 8,6 ) 
LOGICAL DECMPT 
ADDRESS IHTRPT 

INTEGER *A PT, POWER, ST A CK,PONTR, STATE, LSTA3 
*,IDEV,NUM,II,JJ,NIJMPFR,IC.NT,IADC,ITIYE,IAVG,IPL0T, 
*,ILNLG,JFREG,y ODE, ICHN, RE M3ER, INDEX, IIFREQ,IFATN 
*,CMD,H0LD,5UTLIS 
REAL F(1025),LPF3U 

INTEGER-2 I2DAT1(2050),I2DAT2(205Q) 

INTEGER 3UFFER(33),DA Y(2) ,H0UR(2) ,M0NT(12) 

DATA MONT/ 1 JAN F E° MAR APR ^ A Y JUN JUL AUG SEP OCT NOV 
* DEC ’ / 

CLEAR DEVICES A25,A26,C4,TE<TR0NICS 4314 
1 CALL APCLR 

DO 130 1=1,73 
CALL <TlWR(4,~I) 

130 CONTINUE 

CALL TEKTRO 

C ======= ========== ====== ====== ========= ======== ============= 

C SET UP FOR INITIAL RUN 

C ========= ========================================= ========= 

I’C N T = 2 5 6 
I A D C = 1 
I T I M E = 1 
I A V G = 1 0 
I PLO T = 1 
I L N L G = ? 

FRE3=1 0030.0 
V” AX =0.0 
V M I N = 0 . 0 
I P LO T = 1 
I L N L G = 2 
M 0 D E = 1 
S T A T E =4 
P 0 N T R = 1 

I NTRPT = A '1111' 

C NT= 1 
C M D = 3 
>*S = 00031 
HOLD=C 

C W c I T E TO STATUS SOME MESSAGES 
WRITE (4,401) 

CALL WAIT (MS) 

WRITE (4,402) 

401 F0RM4T( ' INSTRUCTION: ' ,/ 

I'l WILL TALK TO YOU BY WRITING’,/ 

1 'HERE AND 3Y LIGHTING UP C4',/ 
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I'THE INFORMATION WILL BE ',/ 

1'?EMINDERS;WHAT 1 AM DOING',/ 

I'THE NUMBER AS YOU PUSH THE',/ 

1 'NUMBER D A D AND ANY PROMPTS',/ 

1 'GOOD-LUCK AND LETS GO !!!',/) 

402 FORMATCHERE IS THE PRESENT STATUS: ',/ 

1 /////////// ///) 

CALL SETUP(ICNT,FREQ,IADC,ITIME,IAVG,ILNLG,IPLOT, 
*SC ALE,ICHN) 

C ========================================================= 

C CHECK FOR COMMANDS 

C ========================================================= 

CALL KTL0NC4, INTRPT) 

719 GO TO (720,730,770,750) , C ^ 9 

720 IF (HOLD.EQ.O)SO TO 730 
H 0 L D = 0 

J=3UTLIS (1 , M 9 D E ) +1 
DO 723 1=2, J 

CALL KTLSIM(4,?UTLIS(I, V '0DE)) 

723 CONTINUE 
730 C"'D = 3 

CALL SPECTR(ICNT,IADC,ITI‘"E,lAVG,IPLOT,ILNLG,ICHN, 
*-FREQ,VMAX,VMIN) 

770 30 TO 719 

750 GO TO 1 

1111 CALL KTLRD(IDEV,NUM) 

CALL C4(ICNT,IADC,ITIME,IAVG,IPL0T,ILNLG,ICHN,FREQ) 
RETURN 
END 
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“LOCK DATA 

C N / 3L< 1 / L G T A 3 ( 73 , 1 0 ) , I D E V , N , D E C MP T , NUMB E R ( 1 6 ) 

1 ,NUMR EG, FNUMRG ,PT ,POWER, POMTR 
*,JFRES, REM3ER, INDEX, IIFREQ,LPF9W,IFATN 
*,IFR£Q(24,4) 

INTEGER*4 PT, POWER, ST ACK,PONTR, STATE, LGTA0 
*,IDF.V,N'JM,NU v ldER,ICNT,IADC,ITIME,IAVG,IPLOT,ILNLC 
*,JFREQ, MODE, ICHN, RE M8ER, INDEX, IIFREQ,IFATN 
*,CMD,H0LD,9'JTLIS 
*,IFREG(24,4) 

REAL F (1025) ,LPF3W 

I NT EGER *2 I2DAT1(2050),I2DAT2(2050) 

INTEGER BUFFER (33) , D A Y (2) ,H0UR(2) , M 0 N T (12) 

DATA PT , POWER , Nil MR EG / 3*0/ 

DATA NUM3ER/7,8,9,0,0,4,5,6,0,1,2,3,4*0/ 

DMA L3TA3/1, 5*0, 1,23*0, 1,0, 1,2*3, 1,4*0, 1,30*0, 1,6*0 

I , 48*0,1 7*1 ,0,1 ,1 1*0, 

II, 1,4 *0,4*1, 0,0, 12*1, 2 *0,3*1, 0,1, 0,1 , 3*0, 5*1, 0,3*1, 3*0 
*, 1 7*0,0, 1 , 

*3,3*1 ,2*1 , 1 ,1 ,3*0, 

*2*1,4*0,4*1,61*0,1,0,2*1,3*0, 

1468*0/ 

Data IFR5Q /988500000, 988750000, R89Q30000, 

C 9 892 5 0030, 9395 00000, 98975 0000, 990000300, 9902 50000, 

C 9 90 500000, 990750000, 991 000000,991 250000,991500000, 

C 9 9 1 7 5 0000,992000000,9922 50000,992 500000,9 9275 0000, 
C99300G000, 9932 50000, 104 1500030, 1075 500000, 

CO, 0,1 004 500000, 101 9500000, 10 36500000, 105 3 5 000 GO, 

Cl 0695 00000,1 08 45 00300,1 15 3 5 00000,1 1 68500000,1 182500003, 
Cl 1975 00000,9 3 94 5 0000,939 8 5 030 0,93 9 60 3 000,9 3 96 50000, 

C 9 39 7000 30, 93 9 750000, 9 398 00000, 9 39 3 5 00 GO, 9 39900000, 

C 9 399 5 0030, 940000000,9 4 01 GOOOO, 11 06000000,0, 
01005500000,1020500000,1037503000,1054500000,1070530000, 
Cl 035 500000,1 1 54500000,1 169500000,1 183 5 30000,1 1 98 5 00000, 
C9 404 5 0000, 940 5 5 0000, 94 0600000, 9 40 6 50000,^4 0700000, 

C 9407 50000, 940300000, 940 85 0000, 940900 300, 9 409 5 0000, 

C 94 1000000,941 100000,1 1 1 7000000,0, 

Cl 036500300,1321 500000, 1 03 8500000, 1 05 5 500300 , 

Cl 07 1500000,1 036 5 00000,1 1 55500000,1 170500000,1 1 84 5 00000, 
Cl 199 500000,94145 0000,9 41 5 50000,941600000, 941650000, 

C 9 41 700000, 941 750000,941800000,941 850000,941930000, 

C9 41 950000, 94 2000000, 94 2 100300,1 123000000,0/ 

END 
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SUBROUTINE C4(ICNT,IADC,ITI1E,I4VG,IPLDT,ILNLG,ICHN, 

*F REQ) 

COMMON / 3LK1 /LGTA3 (78, 10) , I DEV , NUM ,DEC »IPT ,NUM3 ER ( 1 6) 

1 ,NUMREG, FNUMRG,PT, POWER , PONTR 

*, J FREQ, REMBER,IN0EX,IIFREQ,LPF3W,IFATN 

*, I FREQ (24,4) 

CONY!9N/3LK3/C’ 1 1D,HOLD,STAC!''(10),STATE, , ''ODE,SUTLIS(18,6) 
LOGICAL DEC'IPT 

INTEGER*4 PT, POWER, STACK, PONTR, ST A TE,LGTA3 
*, IDEV,NUN,NUM8ER,ICNT, I ADC, IT I*E, I A V G , I PL 0 T , I LNL G 
♦ /JFREQ/Y! ODE, ICHN, RE MBER, INDEX, IIFREQ,IFATN 
*,CMD,H0LD,3UTLIS 
REAL F ( 1 02 4) , LP F 3 W 

C TURN OFF ENTRY REQUIRED 

CALL <TLWR(4 / -63) 

C TEST IF THIS WAS LEGAL; WAS ANYTHING SET TO SAY WHAT IS 
C NOT LEGAL? 

C IF THE NUN3ER IS ALLOWED THAN IT IS LEGAL AND TRUE OTHER- 
C WISE FALSE 

IF (LGTA3 (NUN, STATE) .EQ .0) CALL ILEHDL 
C NOW CHECK IF THE NUN3ER PAD IS REQUIRED; IF SO THEN THEN 
C CHANGE THE 

C LEGAL ENTRY TA3LE. IF NOT CONTINUE 

I F ( ( N U N . G T . 4 3 ) . 0 R . ( ( N Urt . L T . 37 ) . A N D . ( N Utf . S T . 9 ) ) 

1 .OR. (NJN.LT.3) >G0 TO 200 
100 CONTINUE 

HERE WE WILL CHANGE THE LGTA3 ENTRY;SOME HOW KEEPING THE 
OLD 

STACK (PONTR) =STATE 
PONTR =PON TR + 1 
3TATE=2 
2)0 CONTINUE 

CNOW CHECK FOR THE VARIOUS NUM and PERFORM THEIR SPECIFIC 
C ACTIONS 

GO TO (1003/1000,1000/1000,9999,9999, 
*7000,3000,9000,10000,11000,9999, 
*13000,14000,15000,16000,17000,9999, 

*19000,1 9000,19000,19000,1 9000,19000, 

*9999,9999,27000,28000,29000,9999, 

*31000,9999,33000,9999,9999,9999, 

*37000,38000,39000,40000,41000,9999, 

*43000,44000,45000,9999,9999,9999, 

*49000,49000,49000,52000,53000,49000,49000,49000, 

*57000,49000,49000,49000,61000,9999,9999,49000, 

*65000,9999,67000,9999,69000,70000,71 000, 

*72000, 72000, 74000, 72000, 72000, 9999), NUN 
C FREQ PLAN ROW 

1 000 JFREQ = NU'1 
GOTO 20 

C v 0 D E ROW 

7000 'a 0 D E = 1 
S T A T E =4 
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F R E Q = 1 000000.0 
I C NT =2 56 
I A V G = 20 
IPL0T=1 
I C H N = 2 1 

scale=i 0.0 

I T I E = 0 
I A 0 C = ? 

I L N L 3 = 2 

C SET U? RECEIVER RCVR C H N = C ; A T M =0 *9 ; IF FLTR=IMHZ; 

C L.0. = 99.1 MHZ 

I S T A T = KTLWR(5,Y' 100' ) 

I S T A T =< T L >/R (S,Y' 37F ' ) 

ISTAT=<TLLR ( 5 , Y '213 ' ) 

CALL <TLWR (7,991000000) 

CALL <TLRR(4,15) 

CALL KTLWR (4,21 ) 

CALL <TLWR(4,29) 

CALL < T L W R (4,53) 

GO TO 20 

3000 M 0 D E = 2 

RE*3ER=NUM+39 
FREQ=2 3000.0 
I C N T = 2 5 6 
I A V G = 2 0 
I PLOT = 1 
SCALE=10.0 
I TIME =0 
I A 0 C = 1 
I L N L 3 = 2 

C SET UP THF RECEIVFP RCVR CHU = C; IF FILTR=30KHZ; A TN 
CALL KTLWR ( 5 , Y • 37F ' ) 

1ST AT='<TL.JR (5 ,Y ' 2 30 ' ) 

ISTAT=KTLWR(5,Y' 100' ) 

CALL K T L W R ( 4 , 1 5 ) 

CALL <TLRR(4,21) 

CALL <TLWR(4,23) 

CALL < T L 9 R (4,33) 

GO TO 23 

9000 MODE=NUMREG+? 

RE iy l9ER = NUM + 37 
GO TO 2 3' 

10000 S T A T E = 3 
GO TO 20 

11000 ICNT=256 

F REG = 1 300000 . 0 
I A V G = 2 0 
IPL0T=20 
I C H N = 1 1 
SCALE=1 0.0 
I TIME = 0 
I A D C = 2 



= 0 D B 
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I LNLG = 2 

C SET UP THE RECEIVER 

ISTAT=<TLWR (5, Y ' ICO' ) 

I ST A T=<TLWR (5,Y ' 37F ' ) 

ISTAT=KTLWR(5,Y 1 230' ) 

C SET THE LOCAL OSC UP 

CALL KTLWRC7, 1041500000) 

CALL <TLWR(9, 1075000000) 

CALL <TLWR(4,15) 

CALL KTLWR(4,21) 

CALL KTL'WR(4,29) 

CALL KTLWR(4,33) 

C IF FILTER ROW 

1 3000 I S T A T = <TLWR(5,Y'22Q') 

GO TO 20 

1 4000 I S T A T = KTLWR (5 ,Y ' 228 ' ) 

GO TO 20 

1 5000 I S T A T = <TLWR(5,Y'230' ) 

GO TO 20 

16000 ISTAT=KTLWR(5,Y'233') 

GO TO 20 

1 7000 ISTAT=KTLWR C 5 ^ Y • 2 1 3 1 ) 

GO TO 20 

C FFT B L 0 C < SIZE ROW 

19000 ICMT=2**(Mun-19>*64 

GO TO 20 

C OPTIONS ROW 

27000 IF (ITI M E.EQ.1 ) G 9 TO 27001 
IT IME=1 

CALL KTLWR (4,27) 

GO TO 27002 

27001 ITI1E=Q 

CALL KTLWR(4,-27) 

27002 WRITE (4,22003) ITHE 

27003 FORMAT ( 1 ITIME= ',11) 

GO TO 23 

23000 I ADC =1 

CALL KTLWR (4,-29) 

GO TO 20 
29000 I A D C = 2 

CALL KTLWR(4,-28) 

GO TO 20 

C PLOT ROW 

31000 I LNLG = 1 
GO TO 20 
33000 I L N LG = 2 
GO TO 20 

C DATA ENTRY ROW 

37000 CONTINUE 
YiODE = 1 0 
R E M B E R = N U M 
W D ITE (4,37043) 



151 



WRITE(4,37041 ) 

37040 FORMAT (' ENTER CHANNEL N!JM3ER') 

37041 FORMAT (' THEN PRESS ENTER ',/' OP CLEAR ENTRY') 

30 TO 20 

38000 CONTINUE 

REMBER=NUM 
WRITE (4,37042) 
wRITE (4,37041 ) 

3 7042 FORMAT ( ' ENTER C c N T E p FREQUENCY') 

•3 0 TO 20 

39000 CONTINUE 

REMBER=NU.M 
WRITE (4,37043) 

WRITE (4,37041 ) 

37043 FORMAT ( ' ENTER LP FILTER 3 . W . ' , / ' 1 M H Z , 1 0 0 , 30 , 1 0 , 3 < H 7 ' ) 
GO TO 20 

40000 CONTINUE 

REMBER=NUM 
WPITE(4, 37044) 

WRITE (4,37041 ) 

37044 FORMAT ( ' ENTER A TO D RATE') 

GO TO 20 

41 000 REMSER = NUiM 

WRITE (4,37048 ) 

37048 FORMAT ( 'ENTER THE NUMBER OF PLOTS DESIRED') 

WR ITE (4,37041 ) 

GO TO 20 

43000 CONTINUE 

REM3ER = N'JM 
WRITE (4,37045 ) 

WRITE (4, 37041 ) 

37045 FORMAT ( 1 ENTER IF ATTENUATION') 

GO TO 20 

44000 GO TO 9999 
RE»3ER=NUM 
WPITE (4,37046) 

WRITE (4,37041 ) 

37046 FORMAT ( ' P N T E R BANDWIDTH DESIRED FOR PLOT') 

GO TO 21 

45000 REMBER=NUM 

WRITE(4, 37047) 

WRITE (4,37041 ) 

37347 FORMAT ( ' ENTER NUMBER OF BLOCKS TO PE A V 3 ' ) 

GO TO 20 

C NUMBERS 

49000 CONTINUE 

IF (DECMPT) P T = PT + 1 

C BY THIS TIME WHAT EVER HAS GOTTEN THRU SHOULD ONLY BE 

C A NUMBER 

C NOW DO THE TRANSLATION 

NUMREG = NUMREG * 1 0 + NUMBER (Nil*- 4? ) 

3=MJMREG*10**(POWER-PT) 
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V » I T E (4,48)B 
43 FOR. ‘1 AT (520.6) 

3 0 TO 20 
52000 P 0WEP=6 

00 TO 20 

C ENTER 

53300 CONTINUE 
50 A = NU V ’REG 

W=FLC AT (POWER-PT ) 

FNUMRG=A*10.0**(W) 

NUMREG=FNUMRG 

C NOW TURN THE NUMBER FLAG OFF 
P T =0 
PQWER=0 

1 N D E X = R E M 0 E R - 3 6 
P0NTR=P0NTR-1 

ST ATE = STAC<(P0NT,R) 

GO TO (3700,3800,3900,4000,4100,9999,4300,4400,4500, 
*4600,4700) , INDEX 
3700 ICHN=N UNPEG 
NUNREG=0 
P T =0 
P 0 W 6 R = 0 
N 0 D E = 1 0 

CALL <TLWR (7, IFREQ (ICHN, J C RE0) ) 

W 3 I T E (4,3340) ICHN 
334C FORMAT (' CHANNEL' , 12) 

GO TO 20 

38 00 C=FNUMRG- 15 0000000 
II FREQ=C*10 
N U :M R E G = 0 
p T = 0 
P OW E R =0 

CALL KTL'WR (7,IIFREQ) 

WR ITE (4,3350) FNUMRG 
3350 FORMATC ' CENTER FREG AT ',^12.5) 

GO TO 20 

3930 LPF3W=FNUM«G 
NUMREG=0 
P T =0 
POWER =0 

CALL KTLWR(13,LPFBW) 

W° I T E (4,3940)LPF3W 
3940 FORMAT ( ' L P FILTER 9W IS ',512.5) 

50 TO 20 

4000 FREQ = FN'J V 'RG 
N U M R E G = 3 
PT=0 
POWER =0 

WR ITE (4,4040) p R E G 

4040 FORMAT ( 'SAMPLE RATE OF ' , G 1 2 . 5 ) 

GO TO 20 
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41 nO IPLOT-NUM^EG 
'•IU'1REG = 0 
P T = 0 
P QW ER = 0 

WR ITE (4,4140) IPLOT 

4140 FORMAT ('THE NUMBER OF 3-0 P L 0 T S ' , / ' W I LL 
G C TO 20 

4300 IFATN=NUMREG 
NU MREG=0 
PT = 0 
POWER=0 

IHEX=X'37F '-IFATN 
ISTAT=KTLWR(5,Y'37F'-IFATU) 

/.'RITE (4,4340) IFATN 

4540 FORMAT C ’ IF ATTENUAT IONIS ',13,' DB ' ) 

GO TO 20 

4430 GO TO 9990 
4500 I AVG=NUMREG 
M!JMREG = 0 
P T = Q 
POWER =0 

WR ITE ( 4 , 4540) IAVG 

4540 F0RMAKI6,' BLOCKS ARE TO 3E AVERAGED') 
GO TO 20 
4600 CONTINU c 
N U’AR EG = 0 
P T = 0 

power=q 

S T A T E =4 

C STUFF IN HERE THE AUTO NUMBER JUNK 
GO TO 9999 
GO TO 20 

4700 ICHN=NUM p EG 
NUMREG=G 
D T = 0 
POWER =n 
S T A TE = 4 

CALL KTLWR(7,IFREQ(ICHN,JF p E3)) 

GO TO 20 

C POWERS, DECIMAL PT 

57030 P0WER=3 
GC TO 20 
61 000 POWER =0 
GO TO 20 

65000 DEC MPT*. TRUE. 

GO TO 20 
67030 CONTINUE 
NU v iREG = 0 
?T = 0 
POW ER =0 

DEC M p T=. FALSE. 

GO TO 20 



RE ',12) 



CLEAR ENTRY 
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C SPECTRUM RECEIVER CONTROL 

69300 ISTAT = KTLWR (5 ,Y 1 ICO 1 ) 

GO TO 20 

70000 ISTAT=KTL//R(5,Y' 180' ) 

GO TO 20 

71 000 ISTAT=KTLWR(5,Y'100' ) 

GO TO 20 

C PROGRAM CONTROL 

72000 CtfD=NUM-71 
GO TO 20 
74030 HQLD=1 

GO TO 20 

9999 *RITE (4,405) 

405 FOR y AT ( ' SORRY I AM NOT PROGRAMED', /'FOR THAT ONE YET',/) 
CALL ILEHOL 
r 

C LIGHT A LAMP (NUM) 

C 

20 CALL < T L W R ( 4 , N U m ) 

10 CALL KTLEN(4,JUN<) 

CALL KTLRET 

END 
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5TITL SUBROUTINE ILLEGAL ENTRY HANDLER 
SUBROUTINE ILEHDL 
C 
C 
C 

C BRUNER LIBRARY SUBROUTINE 

C 

C 

C TODD T.W. BRUNER 
C APRIL 9, 1978 

C S A T C 0 M SIGNAL ANALYZER LAB, MONTEREY, 

C 

C 

C PURPOSE: INFORM USER THAT 

C HE PUSHED THE WRONG BUTTON 

C ENTRY IS STILL REQUIRED 

C RETURN TO CALL ING PROGRAM 



C 

c 

c 

r 



CALL KTLNR<4,62) 

LEAVE IT ON FOR A WHILE 
CALL WAIT MS (1000) 

TURN IT OFF 

CALL <TLWR (4,-62) 

TELL HIM TO ENTRE A NUMBER 
CALL <TLNR(4,63) 

CALL KTLEN (4, JUNK) 

CALL < T L R E T 

END 



CALIFORNIA 
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WAITES 



SUBROUTINE TO DELAY THE CALLER 



C 

c 

C WAIT M S HAS ONE CALLING PARAMETER, THE LENGTH OF TINE, 

C IN MILLISECONDS, THAT THE CALLER'S TAS< IS TO PE 

C DELAYED. 

C WAIT, MS USES SVC 2 TO GENERATE A TRUE TIMED DELAY. 

C 

SUBROUTINE WAITES (MS) 

INTEGER MS 
C 

I = MS 

SASSM 

ST 11, PARA'" 

SVC 2, BLOCK 
SS DONE 
ALIGN 4 

BLOCK D 3 G,11 

° A R A M DCF G 
DONE EQU * 

SFORT 

END 
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SUBROUTINE TEKTRQ 
CALL I N I T T (96U) 
CALL TERM (3,4 0 96) 
CALL SET3UF(2) 
RETURN 
END 



The following program is titled SPRCVR. It is a FORTRAN 
program designed to control the spectrum receiver by the C4 . 
This program exists as task and is easily executed by use of 
the SPRCVR CSS command. One need only type on the system 
console SPRCVR, after ensuring that SPRCVR. TSK and SPRCVR. CSS 
exist on the system volume (disc) . The SPRCVR CSS command 
follows the SPRCVR FORTRAN program. 
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SPECTRUl'1 RECEIVER CONTROL PROGRAM 

THIS PROGRAM IS VERY SIMILAR TO THE SPECTRL PROGRAM ( C 4 ) 

C IT HAS ONLY THE PURPOSE OF CONTROLING THE SPECTRUM 
C RECEIVER ( A 2 5 ) . THIS PROGRAM WILL CONTROL ONLY ONE 
C LOCAL OSCILLATOR. THE OSC THAT IT CONTROLS IS IN ?AC< 

C 17 4 13. THIS IS THE OSCILLATOR TO SPECHANL C. ANY 
C OTHER OSCILLATORS MUST BE SET 9Y HAND. 

C THE FREQ CAN 3E CHANGED 3Y SELECTING A FREQUENCY 
C PLAN AND CHANNEL OR BY ENTERING THE FREQUENCY DESIRED. 

C NOTE THAT THIS PROGRAM DIFFERS FROM C4 IN THAT 
C 150 '1HZ IS NOT SUBTRACTED FROM THE CENTER FREQUENCE 
C ENTERED. WHAT YOU ENTER IS WHAT YOU WILL GET 
C 

LOGICAL DECMPT 

INTEGERS PT,P0WER,STAC<(3),P0NTR, STATE, LSTA9 
*, I DEV,NUM, NUMBER (16) ,1 FREQ (24,4) 

*,JFREQ, MODE, ICHN, RE HP ER, INDEX, IIFREO,IFATN 
INTEGER** LGTA3(78,2) 

ADDRESS INTRPT 
DATA PT, POWER, NU.MREG/3*0/ 

DATA NUM-RER/7,3,9,0,0,4,5 ,6,0,1 ,2, 3, 4*0/ 

DATA LGTA3/2*1, 13*0, 5*1, 19*0, 2*1, 4 *0,1, 25*0, 3*1, 0,0, 5*0 
1,48*0,17*1,0,1,11 *0/ 

DATA IFREQ / 9 8 8 5 00 000 , 9 8 3 75 000 0 , 9 8 9 00000 0 , 

C9 392 50000,93 9 500000, 989 75 0000,9 90000000, 9 902 5 0000, 

C 9905 00000, 99 0750000, 9 91 000000,991 250000, 991 500000, 

C 99 175 0000,992 000000, 9 922 5 0000, 902 5000 00,9? 2 750000, 

C 993 0000 00,99 3 2 50000, 104 15 00000, 10 75 5 3 0000, 

CO, 0,1 004500000,1019500000,1 036500000,1053500000, 

C 1069500300,1 084500000,1 153500000,1 168500000,1 1 32530000, 
Cl 197 5 00000,93 9 4 50000,939 550000,93 9600000,9 396 50000, 

C 939700000, 9 3975 0000, 9398000 00, 9398 50000, 9 39900000, 

C9399 50000, 940000000, 940 100000,1 106000000,0, 

Cl 005 5 00000,1 02 3 5 00000,103 7 500000, 1 05 4 5 00 000,1 3 70 5 00000, 
Cl 085 5 00000,1 1 54 500000,1 1 69 500000,1 183 5003 00,1 19 3 500 000, 
C 9 40 4 5 0000, 9405 5 0000, 9 40600000, 9406 5 0300, 94 0700000, 

C 9 4075 0000, 940800000,9408 5 0000,940900000, 940° 50000, 

C941 030003, 941 100000,1 117000000,0, 

Cl 006 500003, 1 32 1500000, 103 8500030, 1 0 55 503 300, 

Cl 071 500000, 1 086 5 00000,1 15 5500000,1 1 70 5 00 300,1 184 500030, 
Cl 199 5 00000,941 4 50000,941 550000,941 600000,9 41 650000, 

C94 1700000,941 750000,° 41 300000,941850000,941900003, 

C 94 195 0000, 94 2 000000,9 42 100000,1 1 23000000,0/ 

DO 100 1=1,73 
CALL KTLWR(4,-I) 

100 CONTINUE 
S T AT E = 1 
3 0 N T R = 1 
J F R E Q = 1 

CALL KTLWR(4,1) 

I N T R P T = A 1 11 1 1 • 

CALL KTL0NC4, INTRPT) 
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C IF YOU DO NOT GET AN INTERUPT PLEASE WAIT 

1100 CALL KTLWAT 

1111 CALL KTLRD(IDEV,NUM) 

C TURN OFF ENTRY REQUIRED 

CALL <TLWR(4,-63) 

N'JKIsNU*! 

STATE=STATE 

LG TAB (NUM, STATE) =LGTAB (NUM, STATE) 

IF (LGTA9 (NUN, STATE) .EQ.O) CALL ILEHDL 
I F ( (NUN.GT.48) .OR. ( (NUM. LT.37) . AND. (NUN. GT .9) ) 

1 .OR. (NUN.LT.5))G0 TO 200 
STACK (PONTR )=STATE 
P0NTR=P0NTR+1 
S T A T E =2 

200 CONTINUE 

GO TO (1000,1000,1000,1000,9999,9999, 
*7000,8000,9000,10000,11000,9999, 
*13000,14000,15000,16000,17000,9999, 
*19000,19000,19000,19000,1 9000,19000, 
*9999,9999,27000,28000,29000,9999, 
*51000,9999,33000,9999,9999,9999, 
*37000,38000,39000,40000,41 000,9999, 
*43000,44000,45000,9999,9999,9999, 
*49000,49000,49000,52000,53000,49000,49000,49000, 
*57000,49000,49000,49000,61000,9999,9999,49000, 
*65003,9999,67000,9999,69003,70000,71000, 

*72003, 72000, 74000, 72000, 72300, 9999), NUM 
1030 JFREQsjjum 
GOTO 20 

7030 GO TO 9999 
8000 GO TO 9999 
9330 GO TO 9999 
13300 GO TO 9999 
11000 GO TO 9999 
13000 I S T A T = KTLWR(5,Y'220' ) 

GO TO 20 

14030 I ST A T = KTLWR(5,Y ' 228 ' ) 

GO TO 23 

1 5000 I S T A T = <TLWR(5, Y' 230' ) 

GO TO 20 

16000 ISTAT=KTLWR(5,Y'238‘) 

GO TO 20 

17000 ISTAT=KTLWR(5,Y'218' ) 

GO TO 23 

19000 GO TO 9999 
27000 GO TO 9999 
28000 GO TO 9999 
29300 GO TO 9999 
31000 GO TO 9999 
33300 GO TO 9999 
3 7 300 R E "1 0 E R = N U i* 

GO TO 20 
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58 000 REM3ER=NUN 
GO TO 20 

09000 GO TO 9999 
4 0000 GO TO 9999 
41000 GO TO 9999 
42000 SO TO 9999 
45000 REMBER=NUM 
GO TO 20 

44000 GO TO 9999 
45000 GO TO 9999 
49000 CONTINUE 

IF (D E C *1? T ) PT = PT + 1 
C NOW DO THE TRANSLATION 

NUl»IRES*NUMREG*ia + NU«BER(NU«-48) 

B = NUN REG *10.0** (POWER-PT) 

GOTO 20 
52JOO POWER =6 
C-0 TO 2 3 
53000 CONTINUE 
50 a=nunreg 

W = F L 0 A T ( D OWER-PT) 

FNUiNRG = A*10.0**(W ) 

NUMR EG = FNUNRG 
PT = 0 
POWER =0 

INDEX=REN9ER-36 
PONTRsPON TR-1 
STATE=STAC<(PONTR) 

GOTO ( 3700,3300,3900,4000,4100,9999,4333,4400,4500,4600,4700 
* ) , I N 0 E X 

3 73C ICHN = NU,NREG 
N U N RE G = 0 
P T = 0 
P0WER=0 
v ’ 0 D E = 1 0 

CALL KTLWR (7, I FREQ ( I CHN,J FREQ ) ) 





GO 


TO 


23 


3900 


GO 


TO 


9990 


4000 


GO 


TO 


9999 


4100 


GO 


TO 


9999 


4400 


GO 


TO 


9999 


4500 


GO 


TO 


9999 


4600 


GO 


TO 


9999 


4 700 


GO 


TO 


9999 


3300 


C = 


FNUMRG 




1 1 FREQ 


= C * 1 0 



N U M R E G = 0 
P T =0 
p 0 W E R = 0 

CALL <TLWR(7, IIFREQ) 
GO TO 20 

43 00 I F A T N = N ! J N R E G 
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MUMREG=3 

?T=0 

P0WER=0 

IHEX=X'37F'-IFATM 
iSTAT=<TLWR(5,Y'37F'-IFATN) 
GO TO 23 
57300 P 0 W E R = 3 
GO TO 20 
61000 P 0 W E R = 0 
GO TO 20 

6 5 000 DEC 'IP T = . TRUE. 

GO TO 20 
67000 CONTINUE 

nimpeg=o 

P T = 0 
P 0 W E R = 0 

0FC:iPT=. FALSE. 

GO TO 20 

69300 ISTAT=KTLWR(5,Y' ICO' ) 

GO TO 23 

70000 ISTAT=<TLWR(5,Y'130'> 

GC TO 20 

7 1 0 C 0 ISTAT = <TLWR (5 ,Y ' 1 GO ' ) 

GO TO 20 
72000 CONTINUE 
74000 CONTINUE 
999? CALL ILEHDL 
20 CALL KTLWR(4,NUi1) 

10 CALL KTLEN(4,JUNK) 

CALL KTLRET 
END ’ 
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L SPRCVR;T SPRCVR;OPT NON; ST 
TEXIT 
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The following program is a CSS command. It is titled 
BIGBOY. Its purpose is to permit six FORTRAN programs to be 
compiled by the operator. This command is particularly 
useful when one desires to make subroutines whose object 
module is to be included in the TET file; or is one is 
making a library of subroutines. There are six passing 
arguments (01, @2, @3,... @6). The arguments are the names of 
the programs to be operated on. 
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SCOPY 

* I AM FORTOBJINS 31,32,33,34, 
« N 0 C 

SET SYS 15 
S J 0 3 

F 0 R T 0 3 J 31 
SIFNE 3 ; $ SK I P 
S E M D C 
STERMJOP 
SCOPY 

* I A vs FORTOBJ ING 3 2 
SNOC 

5 J O n 

FORTOBJ 32 

S I F M E 3 ; S S K I P 

SFNDC 

STERMJ03 

SCOPY 

* I AM FOR TOP J ING 3 3 
S N 0 C 

« JOS 

F OR T OR J 3i; IIFNULL3 3; SSKIP 

SIFNE f;;SS<IP 

?■ E \! 0 C 

S T f R M J 0 3 

KOPY 

* I AM FORTORJIN1G 34 
SNOC 

I JOS 

FORT OBJ 34;3IFNULL34;SSKIP 
% I F N E J ; $ S < I P 
S E M 0 C 
STERMJQ? 

SCOPY 

* I AM F0RT0SJIM6 3 5 
SNOC 

S J 0 p 

FORTOBJ 35;SIFNIJLL35;$SKIP 
S I F N E 0 ; S S < I P 
S E N D C 
ST ERMJ 03 



SCOPY 

*1 AM FORTOBJING 36 
S N 0 C 



5,36 



•S JOB 

FORTOBJ 36; < IFNULL36; SSKIP 

S I f N E 0 ; S S < I P 

SEN DC 

STERMJOB 

SCOPY 



I S 



166 



£ N 0 C 

SET SYS 10 
£E X I T 
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BIGPR is the second CSS command which follows. It is 



program similar to BIGBOY. Instead of operating on the pro- 
grams, the command will print the programs on the printer. 
BIGPRTH is not shown, but it also exists. This program will 
print the desired programs on the printer in the format 
necessary for a thesis. 
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% J OB 

PR 31.FTN;SIFNULLai.FTN;$SKIP 
STERMJ 03 
S JOB 

°R 32.FTN;SIFNULL32.FTN;$SKIP 
ETERMJ09 
£ J OB 

PR 33.FTN;$IFN'JLL33.FTN;S$<IP 
STER^JOB 
3 J 0 S 

PR 34.FTN;SIFNULL34.FTN;$SKIP 
£ TERM J 03 
S J 08 

PR 35.FTN;£IFNULL35.FTN;$S<IP 
TTE R M J 03 
S JOB 

PR 36.FTN;£IFNULL36.FTN;SSKIP 

ITERMJ03 

£C OP Y 

* I HAVE PRINTED 31 ,32,33,34,35,36 

* ANYTHING MORE ?????? 

£ N 0 C 

£ E X I T 
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TAPIT, another CSS command follows next. Similar to 
BIGBOY, BIGPR, and BIGPRTH, TAPIT will copy six programs to 
the left cassette drive. It should be clear with these ex- 
amples of BIGBOY, BIGPR, BIGPRT4 , and TAPIT, that the user 
can link a number of operator commands together. To master 
this early will save the user time. 
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£ J OB 

COPYA 31 
STER'IJOB 
S J 0 3 

COPYA 32 
5TERMJOB 
$ J 0 3 

COPYA 33 
STERMJOB 
£ J OB 

COPYA 34 
STER'YIJOB 
£ J 0 3 

COPYA 35 
STERYIJOR 
SJO0 

COPYA 36 
£ N 0 C 
SEXIT 



C A s 1 
C A SI 
C A S 1 
C A SI 
C A S 1 
C A S 1 



The next program is B, another CSS command. This command 
will cause the left cassette file to be copied into a file 
called NEW. The file NEW is then displayed on the screen. 

The purpose of this command is to permit one to easily 
examine files on a cassette. 
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C 0 ? V A c A S 1 : , N E W 
3 H 'JEW 

• exit 
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The AP CSS command follows. This program allocates all 
the necessary files and then will start the Floating Point 
System programs for software development. 
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SI MX 51. A PC; ALL 31.AP0,IN,30 
? E N 0 C 

SIFNX 31 . A p E ; A Lu 31 .APF,IN,E0 
5 E N 0 C 

SIFN'X 3 1 . C A L ; A L L 31. CAL, IN, SO 
TEN DC 

L . 3 G , S 0 N 1 : A P A L ; T .3C,;AS 4, CON: 

AS 5 , C 0 N : ; AS 6 , C 0 N : ; S T 
SI FE 0 

L .35,^0 Nl :APLINK;T .3G;AS 4, CON: 
AS 5,C0\ ! :;AS 6, CON ST 
S I F F C 

L .3G,S0N1 :APSI«1;T .9G;AS U, COM: 
AS 5 , C 0 N : ; A S 6, CON:; ST 
3 E \ D C 
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BACKUP is the last CSS command. This will backup a disc 
that has been placed in the third disc slot. The comments in 
the listing describe the program. 
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5 C 0 P Y 

* T H I S IS A PROGRAM TO BACKUP A DISC. 

* I T ^ I L L FIRST CLEAR D 4 ( T H E BOTTOM DISC). 

* A COMPRESS IS DOME FROM Oi TO D4 

* A DISCINIT IS DOME ON D3 

* A COMPRESS IS DONE FROM D4 TO D3 

* A COMPRESS IS DONE FROM D4 TO THE MAG TAPE 

* TH c DISC TO 3 E SACKED UP MUST PE IN D 3 

♦THE ONLY PASSING ARGUMENT IS THE NAME OF THE 
♦DISC TO BE BACKED UP(OR NEW NAME). 

♦INSURE THAT THERE IS A TAPE ON THE DRIVE 
TNOC 

L . °G, DISCI NIT, 4 3 ;T .3S;0PT NON ; S T , D = D 4 : , V = C OMP , C , 3 =4 ?. 

% I FE Q 

L .BG,C3COMP,43; T .3G; M A D4:,0N;ST , I =D 3 : , 0 = D 4 : , V 
3 I F E 0 

V COMP ; V COMP/TE 
MA 03:, OF 

L .BG, DISCI N IT, 43;T .3G;ST , D = D 3 : , V =3 1 , C , B = 48 
*IFE 0 

L .RG,C3CO v P,43;T . 3 G ; M A D3:,ON;ST , I = D4 : ,0 = D3: ,L = CON : 

3 IFF 0 

L . 3 G , C 3 C 0 M P , 4 3 ; T . BG; ST , I = D4 : , 0 = MT : ,L = CON : 

S I F r Q 
R E W M T : 

D D ; D m ; v 
t NO C 
i E N D C 
SEX IT 
I CLEAR 
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APPENDIX V 



The programs in this appendix are still in development 
or are complete modules that are to be integrated with pend- 
ing modules into one program which is to replace the pro- 
gram SATCOM. The order and use follow: 



ORDER NAME 



USE 



1st IOPACK 



2nd AXIS 

3rd XGRATL 

4th YGRATL 

5th G RAT CL 

6th SCREEN 

7th ANNOT 

8th VIRWIN 

9th RECTRL 

(SPRCVR) 

10th SPACQ 



11th PRCDTA 



12th FFFT 

13th AVG 

14th SCAIL 



15th GETIT 

16th GRAFIT 



Test program for the I/O package. This 
is a complete module and is waiting in- 
tegration with other modules. 

Draws axis on the Tektronix. 

Draws graticle lines in y direction. 
Draws graticle lines in x direction. 
Labels the graticles in the x or y plane 
Draws and labels the graticles in the 
xy plane. 

Draws axis and graticles in xy plane. 
Sets the vertual window for SCREEN. 
Controls receiver for FULL MON button 
in SPECTRL program. This is a complete 
working module. 

Controls the DAU for a-1 acquisitions. 
This is a complete module. It incor- 
porates the pre-start circuit condi- 
tions. All data returned in this pro- 
gram is good data. There are no pre- 
vious words of data that must be ignored 
Indevelopment program to process the 
data for frequency and time domain 
analysis . 

Indevelopment program to execute the 
FFT algorithm. 

Program to average data. This program 
is a complete module. 

Indevelopment program to scale data for 
high speed to integer plotting on the 
Tektronix. 

Program to get data from the AP-120B. 
This program is a complete module. 
Temporary debugger program for develop- 
ment of the FUL MON program. 



C v t A X AND MIN REFER TO TH E VALUES IN USER UNITS , I . E . 

C APPLES, FREQ, 09, ETC . 

C OF THE I T E M THAT IS TO S E PLOTTED 

C VIRWIN COMPUTES THE SPACING BASFC ON THE NUMBER OF 

C TICS YOU WANT (N TIC) 

C AND LEAVES A HALF S°ACING BOARDER 

C OFSET INDICATES THE LOCATION ON THE OTHER AXIS YOU'D 

C IKE AN MIS TO 

C 3E DRAWN. 

INTEGER SCXSTR,SCXEND,SCYSTR,SCYEND 

DATA SCXS TR,SCXEND,SCY STR, SC YEND/ 0200,4000, 0200, 3000/ 

33 WR ITE ( 5 ,1 0 ) 

10 FORM AT (' INPUT X M I N , X M A X ,NX T I C ONE LINE AT ATIME F12.5,I2') 
PEAD(5,11)XMIN,X V 1AX,NXTIC 

11 FORMAT (2(F12.5/),I2) 

4 P I T E ( 5 , 2 0 ) 

20 FORMAT (• INPUT YM I N , Y M A X , N Y T I C ONE LINE AT A T I V E F12.5,I2‘) 

RE AD (5 ,1 1 ) YMI N,Y MAX ,NYT IC 
WRITE(5,30) 

30 FORMAT (' INPUT XOFSET YOFSET 2F12.5') 

READ(5,31 ) XO FSET, YOFSET 

31 FORMAT (2F12.5) 

V 15 I T E (5,5 0) 

50 FORMAT ( ' INPUT THE CHARACTER SIZE 1,2, 3, 4 ') 

READ (5,51 ) ICHAR 

51 FORMAT (ID 
CALL TEKTR3 

CALL VIRWIN(XMAX,XMIN,YMAX,YMIN,NXTIC,NYTIC) 

CALL AN NOT(XMIN,XMAX,NXTIC, YOFSET, 

*YM IN, YMAX,NYTIC, XOFSET, 

* S C X S T R , SCX END, SCYSTR,SCYEND, ICHAR) 

CALL TSENG 
GO TO 33 
END 
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SUBROUTINE AXI5(X N I N,x MAX, YOFSET, YNIN^IAX 
*,XOFSET) 

mo call movea (xmin, yofset) 

20D CALL DRAVA (X M AX, YOFSET) 

300 CALL MO'v/E A (XQFSET, YMI\) 

CALL DRAVA (XOFSET,YMAX) 

XOFSET=XOFSET 
YOFSET= YOFSET 
XMAX=XMAX 
YMAX=YiMAX 
X A I N = X M 1 N 
Y M I N = Y M I N 
RETURN 
END 
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SUBROUTINE XGRATL(XLBL,YMIN,YMAX) 
CALL MOVEA (XLBL, Y"IIN) 

CALL DASHA ( XL3 L , Y A X , 1 ) 

CALL MOVE A (XLSL, YMIN) 

RETURN 

END 
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SUBROUTINE YGRATL(YL3L,XMIN,XMAX) 
CALL MOVEA(XMIN,YLBL) 

CALL D ASHA ( X'AAX^YLBL, 1 ) 

CALL MOVE A ( XMIN , YLBL) 

RETURN 

END 
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SUBROUTINE GRATCL(II,!' l IAX,f4IN,NTIC,0MlN,0 , »!AX,ICHAR) 
INTEGER d L< ( 33 ) 

REAL MAX,^IN,L9L 

5 p ACE = ( v 1AX- v 1IN) / (NTIC-1 .0) 

CALL CHRSIZ(ICHAR) 

0 0 10 J = 1 , N T I C 

LBL = v iIN + SPACE*(J“1 ) 

ENCODE (3LK,200)L3L 
200 FOR-'U T (El 0.3) 

1 F ( A 3 S (L3L~MIN) . L E . (SPACE/2 ) )G0 TO 10 
IF (II. E3. 1)50 TO 1 

CALL YGRATL(L3L,0' V 'IN,0MAX) 

GO TO 2 

1 CALL XGRATL<LBL,0riN,0*AX> 

2 CALL AN3STR(3LK,10) 

10 CONTINUE 

RETURN 

END 
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SUBROUTINE SCREEN(XMAX / XV-IN / NXTIC / YYAX / Yviim / NYTIC„ 
* I C H R ) 

11 = 1 

CALL XSR4TL(X n !IN,Yi v IIN / Y v IAX) 

CALL GRATCL(II,X'1AX,XMIN,NXTIC,Y , '1IN,YI«AX,ICHAR) 
11=0 

CALL YGRATL(YMIN,XMIN,XMAX) 

CALL GRATCL(II / Y v tAX,Y'''!IN,NYTIC,X>1IN,XMAX,ICHAR) 

RETURN 

END 
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TT=>CE 



SUBROUTINE AN k iOT(X! v 'IN,X v l. a X,NXTlC,YOFSET, 
*Y" / !lN,YNAX / NYTIC,XOFSET i , 
*SCXSTR,SCXEND,SCYSTR,SCYEND,ICHAP) 

INTEGER SCXSTR,SCXEND,SCYSTR , S C Y E N D 
IQ CALL TWINDO(SCX3TR,SCXEND,SCYSTR,SCYEND) 

2 0 CALL AXIS(XNIN,X*AX,Y0FSET,Y' V !IN,Y V 1AX,X0FSET) 

30 CALL SCREEN(XviAX,XMIN,MXTIC,Y k 1AX,YVI\|,NYTIC,ICHAR) 

RETURN 
END 
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SUBROUTINE VIRWlN(X;^AX,X'''lN,Y' v !AX,Y ,| llN,NX!'IC, 
*N YTIC ) 

XSPACE=(X V >AX-X>1IN)/(NXTIC-1.0) 

XMINT = X , 1IN-XS?ACE/2.0 
XMAXT=XNAX+XSPACE/2.0 
YSPACE = (Y«AX-Y*!IN)/(NYTIC-1.0) 

Yf-',INT = YV!I n-YSP ACE /2 .0 
Y^AXT-YYAX+YSPACE /2.0 

CALL D*JINDO(X v 'INT,XNAXT,Y v II.\|T,Y v iAXT) 

RETURN 

END 
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SUBROUTINE SPRCVR(SFREQC,SFREQ9,SPMDE) 
INTEGER SPC'10(3,3),$P , '’DE,SFREGC,SFREQ8 
DATA SPCMO/Y'37F',Y'233',Y'100',Y'103' 
* Y ' 37F , Y 1 2 1 3 1 ,3*0/ 

CALL KTLJR(7,SFREQC ) 

CALL <TL^R(9,SFREQB) 

DO 5 1=1,3 

5 CALL KTL^R ( 5 , S P C ^ D ( I , S P * D E ) ) 

RETURN 

END 
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SUBROUTINE SPACQ(FRE3,DAUMDE,DAUDTA,9LKSIZ) 

INTEGER*? DAUC'MD(7,?),D4UDTA(205C!),IC0DE 
INTEGER DAUMDE,3LKSIZ 

D T A DAUCM D/3, 4, 0,3, 16, 5, 17, 0,4, 3, 3, 32, 5, 34/ 

C SET SAMPLE RATE 

C^LL 3CDFRQCFREQ) 

CALL WAITES <01 50) 

DAUCMD (3,0AUMDE)=8LKSIZ 
00 5 1=1, 6, 2 

5 CALL DAJREG ( 0 A UC MD ( I , 0 A UM D E ) , 0 A UC MO ( I +1 ,0 AU MO F ) ) 

CALL DAURUN(D4UCMD(7,DAUMDE),IC0DE) 

C GET THE DATA 

0AUC'1D(3,0AUMDE)=2*0AIJCMD(3,DAUMDE) 

DAUCMDO ,DAUMDE)=1 

CALL DAJSET(DAUDTA,DAUC*'D(1,DAU V DE),DAL)C1D(3,DAIP1QE)) 

RETURN 

END 
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SUBROUTINE PRCDTA(DAUDTA,aL<SIZ,TIM0M,RESULT,I,9LKAVG) 
I NT EGER *2 DAKOTA 

INTEGER BLKSIZ^TIMDM, RESULT, SOURCE (2) , B L < A V G 

i T R C E 

SOURCE ( 1 ) =0 
SOURCE (2) =2043 
J=1 

IF ( V I0D(I,2) .EQ.0)J=2 

5 CALL APPUT (DAUDTA, SOURCE (J ) ,2*3LKSI Z , 1 ) 

SOURCE ( J ) =SOUPCE (J ) 

C 3 UT THE AP^D AT STATEMENT 20 AFTER THE F R E 3 DOMAIN Wf)P<S 
CALL AP.JD 

I F(TI*IDM.EQ.1)G0 TO 20 
I I I = 3 ~J 

10 CALL F FFT (SOURCE (II I ) ,BLKSI Z,I) 

SOURCE(IlI)*SOURCE(III) 

RESULT =61 44 
RETURN 

20 CALL VFLT(SOU.RCE(1),1,SOiJRCE(1),1,9LKSIZ*2) 

RESULT=3 
100 RETURN 
END 
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SUBROUTINE F FFT( SOURCE ,BL<SIZ,J> 

INTEGER SOURCE, 3LKSIZ,DESTIN, SUM 
REAL ST0R(2O5O) 

DATA DESTIN, SUM/4096, 6144/ 

CALL VFLT (SOURCE, 1, SOURCE, 1 ,2*3LKSIZ) 

CALL APWR 

C 4 L L APGETCSTOR, SOURCE, 3LKSIZ, 2) 

CALL APWD 

WRIT C (8,13) (ST0R(K),K=1,3LKSIZ) 

CALL CFFTB (SOURCE, 4096, BL<SIZ,1 ) 

CALL APWR 

CALL APGET (ST0R,4096,BLKSIZ,2) 

CALL A PND 

WRITE(3,13)(ST0R(K),K=1, 3 LKSIZ) 

13 FORMAT (3 FI 4. 5) 

30000 I F (J .NE .1 )C ALL SCJMA (4096,1 ,6144,1 ,61 44,1 
*9 LKS I Z ) 

I F (J .EQ .1 )G0 TO 40000 
CALL APWR 

CALL APGET(ST0R,6144,PL<SIZ,2) 

CALL A P W D 

WRITE (8,13) (ST0R(K),K=1,9L<SIZ) 

40000 I F ( J . EQ . 1 ) C ALL V C L R ( 6 1 44 , 1 , 9 L K S I Z ) 

RETURN 

END 



SUBROUTINE A VG(3LKSIZ,BLKAVG, SOURCE) 

INTEGER 3LKSI Z ,3LKAVG ,SOURCE 
FAC TOR = 1 .0/(9 LKSIZ*9LKAVG) 

IPUT = 153S'j 

CALL APPUT(FACT0R,IPUT,1,2) 

REMOVE THIS WAIT C M D AND SEE WHAT HAPPENS 
IT MIGHT WO R < WITHOUT IT BECAUSE ONLY 
ONE NUMBER IS GOING IN AND MIGHT NOT 
NEED TO WAIT SO LONG 

CALL APWD 

CALL VS MUL(SOUPCE,1,IPUT, SOURCE, 1,3L<SIZ) 

RETURN 

END 



SUBROUTINE SCML(30URCE,3LKSIZ,IYPT, SCALE, TnOM) 

INTEGER SOURCE, 3LKSIZ,IYPT,TIMDM,VVMAX, MM IN 
*, RANGE, YPTRNG,SCAL 
INTEGER*? IDIOT 
REAL SCALE(23) ,STOR (2050) 

DATA VV / IAX,VVOIN,RANGE,SCAL,YPTRNG/83 60,3364,8363,/ 

* 5372,3376 

S TRCE 

SOURCE=SOURCE 
8L<SIZ=BLKSIZ 
I DIOT=I YPT 

CALL VCLR(VVNAX,1,20) 

CALL APPUT ( IDIOT, YPTRNG,1 ,1 ) 

CALL APPUT (IDIOT, YPTRNG + 1 ,1 ,1 ) 

CALL A PUD 
J =1 

I F (TI vdM.EQ . 1 ) J=2 
DO 43 1 = 1, J 

330 CALL Y!AX'/(S0URCE+(I-1),J,VVY!AX + (I-1),RL<STZ) 

400 C ALL MINV (SOURCE* (1-1 ) ,J ,VV*IN + (I-1 ) ,BLKS IZ) 

45 CONTINUE 

10 CALL VSU3 (VVMIN,1 ,VV^AX,1 , RANGE, 1 ,2) 

600 CALL VFLT(YPT p NG,1,YPTRNG,1,1) 

700 CALL VDIV(RANGE,1,YPTRNG,1,SCAL,1,2) 

CALL A PUR 

CALL APGET (SCALE, VV MAX, 20, 2) 

CALL A PUD 
DO 63 I =1 ,20 
SCALE (I ) =SCALE (I ) 

63 CONTINUE 

DO 53 1 = 1, J 
SOURCE =SOURCE 
SCAL=SCAL 
J =J 

BL<3IZ=8LKSIZ 

IF (TI' / !D V !.E0.1)BLKSIZ = 2*3LK. C IZ 
CALL A°UR 

CALL APGET (ST0R,S0URCE+(I-1 ),PLKSIZ,2) 

CALL A PUD 

DO 737 < K = 1 ,BL<SIZ 
STOR(<K)=STOR(<K) 

7 37 CONTINUE 

IF(Tl!WDM.EQ.1)BLKSIZ = RLKSIZ/2 

300 CALL VSMUL(SOURCE*(I-1),J,SCAL+(I-1),SOURCE+(I-1),J,5L<SIZ) 
CALL A PUR 

CALL APGET(ST0R,S0URCE+(I-1),BLKSIZ,2) 

CALL AP'UD 

DO 73 K<= 1 ,3LKS I Z 

STOR (KK)=STOR ( KK ) 

73 CONTINUE 

53 CONTINUE 

20 RETURN 
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SUBROUTINE GETIT(PRODTA,SGURCE,5L<SIZ) 
INTEGER SOURCE ,BLKSIZ 
INTEGER*? PRODTAC2050) 

550 CALL VFIX (SOURCE, 1 , SOURCE, 1 ,BL<SIZ) 

560 CALL APWR 

570 CALL APGET (PRODTA, SOURCE, 3L<SIZ,1 ) 

CALL A P W 0 

RETURN 

END 
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SU3ROUTINE GRAFIT(IXST,IYST,IX'IXPT,NPTS, 
*IDATA,TI' / 10 V 1) 

IMTEGER+2 IDATA(2050) 

INTEGER THD» 

I N C R H T = I X M X P T / N P T S 
J -1 

IF(TI v iD v I.EQ.1)J = 2 

CALL M0VA8S(IXST,IYST+IDATA<1>) 

00 5 I=1,NPTS,J 

CALL DRW43S(IXST + INCR*IT*(I),IDATAU + 1) + IYST) 
CONTINUE 

CALL * v ) 0 v/ A *3 S (0000,3120) 

CALL TSENO 

RETURN 

END 
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LIST OF ABBREVIATIONS 



AC 


- Alternating Current 


ADC 


- Analog-to-Digital Conversion 


CSS 


- Command Substitution System 


DAU 


- Data Acquisition Unit 


FFT 


- Fast Fourier Transform 


FLTSAT 


- Fleet Satellite 


FSM 


- Fleet Satellite Communications 
Spectrum Monitor 


HP 


- Hewlett-Packard 


IEEE 


- Institute of Electronic and Electrical 
Engineers 


I/O 


- Input-Output 


NAVELEX 


- Naval Electronic Systems Command 


NAVPGSCOL 


- Naval Postgraduate School 


NPS 


- Naval Postgraduate School 


PME 


- Project Management Electronics 


RF 


- Radio Frequency 


RFI 


- Radio Frequency Interference 


RS 


- Recommended Standard 


SATCOM 


- Satellite Communications (also appears 
as a name for a program in Chapter 3) 


SPCHNL A,B,C 


- Spectrum Receiver Channel A or B or C 


SPECTRL 


- Spectrum Control Program 


SSA 


- Satellite Signal Analyzer 


SVC 


- Supervisor Calls 


UHF 


- Ultra High Frequency 



195 



LIST OF REFERENCES 



1. Naval Postgraduate School Report 52AB76031, Evaluation 

of the AS 3018/WSC-l (V) Shipboard SATCOM Antenna , by 
R. W. Adler, B. K. Hollar, and J. E. Ohlson, Confi- 
dential, March 1976. 

2. Naval Postgraduate School Report62OL76105 , Deck Boxes 

for UHF SATCOM Radio Frequency Interference Study , 
by G. B. Parker and J. E. Ohlson, October 1976. 

3. Naval Postgraduate School Report 62OL76106, A High 

Level Noise Blanker and RF Amplifier System for the 
UHF Band , by F. E. Mace and J. E. Ohlson, October 1976. 

4. Naval Postgraduate School Report 62OL76107, A Level 

Density Analyzer for Shipboard RFI Measurements , by 
D. C. Arneson and J. E. Ohlson, October 1976. 

5. Naval Postgraduate School Report 62OL76108, Instrumen- 

tation Package for Measurement of Shipboard RFI , by 
A. R. Shuff and J. E. Ohlson, October 1976. 

6. Naval Postgraduate School Report 62OL76103, Shipboard 

Radio Frequency Interference in UHF Satellite Communi- 
cations , by J. E. Ohlson and T. C. Landry, Confiden- 
tial, October 1976. 

7. Naval Postgraduate School Report 62OL76109, A Simulator 

for Shipboard Radio Frequency Interference in Satel- 
lite Communications , by E . S. Brick and J. E. Ohlson, 
October 1976. 

8. Naval Postgraduate School Report 62OL76091, Receiver 

Desensitization of the AN/WSC-3 Satellite Communica- 
tions Set , by R. Carlson and J. E"! Ohlson, Confi- 
dential , September 1976. 

9. Naval Postgraduate School Report 62OL76101, Receiver 

Desensitization of the AN/SSR-1 Satellite Communica- 
tion Receiver , by R. F. Carlson and J. E. Ohlson, 
Confidential, October 1976. 

10. Naval Postgraduate School Report 62OL76102, Bit Error 

Rate Measurements on the AN/WSC-3 and AN/SSR-1 Satel- 
lite Communications Sets , by R. F. Carlson and J. E. 
Ohlson, October 1976. 

11. Naval Postgraduate School Technical Report NPS620L78002 , 

Receiver Design for the Naval Postgraduate School 
SATCOM Signal Analyzer , by C. B. Williams and J. E . 
Ohlson, January 1978. 



196 



12. 



Naval Postgraduate School Technical Report NPS6278001, 
Digital Control and Processing for a Satellite Commun- 
ication Monitoring System , by G. W. Bohannan and J. 

E. Ohlson, January 1978. 

13. Naval Postgraduate School Technical Report NPS62OL78003 , 

Hardware Development for a Satellite Signal Analyzer 
(U) , by J. D. Zuber, Jr. and J. E. Ohlson, December 

1977. 

14. Naval Postgraduate School Technical Report, System 

Development for Satellite Oscillator Stability Measure 
ments, by Bobbie G. Edgington and J. E. Ohlson, June, 

1978. 

15. Naval Postgraduate School Technical Report, Digital Con- 

trol and Interfacing for a High Speed Satellite -Commun 
ications Signal Processor , by Richard Randolph Mead 
and J. E. Ohlson, September 1978. 

16. Naval Postgraduate School Technical Report, Data Acqui- 

sition Unit for SATCOM Signal Analyzer , by Marvin J. 
Langston and J. E. Ohlson, June 1978. 

17. Meyers, G. J., Software Reliability, Principles and 

Practices , Wiley & Sons, April 1976. 

18. Naval Postgraduate School Technical Report, Implementa- 

tion of Control Bus Hardware and Utilization of 
Satellite Signal Analyzer , by Ronald M. Thomas and 
J. E. Ohlson, September 1978. 

19. Interdata, Inc., OS/32 Operators Reference Manual, 

Publication Number 29-574, September 1977. 

20. Floating Point Systems, Inc., Processor Handbook, Pub- 

lication Number 7259-02, Rev 2, May 1976. 

21. Floating Point Systems, Inc., Software Development 

Package Manuals, Publication Number 7292, February 
1976. 

22. Floating Point Systems, Inc., Programmer's Reference 

Manual, Publication Number 7319, January 1978. 

23. Floating Point Systems, Inc., AP-120B Math Library, 

Rev 2, Publication Number 7288-03, August 1977. 

24. Floating Point Systems, Inc., Vector Function Chainer 

Manual, Publication Number 7351, October 1977. 



197 



25 . 



Hewlett-Packard Co., HP9830A Calculator Operating and 
Programming Manual, Publication Number 09830-90001, 
September 1973. 

26. Hewlett-Packard Co., HP9830A Calculator 11274B String 

Variables ROM Operating Manual, Publication Number 
09830-90002, January 1975. 

27. Hewlett-Packard Co., 9830A Calculator Extended I/O ROM 

Operating Manual for 11272B & Option 272, Publication 
Number 09830-90007, November 1973. 



198 



INITIAL DISTRIBUTION LIST 



No. of Copies 

1 . Commander 8 

(Attn: E. L. Warden, PME-106-112A) 

Naval Electronic Systems Command 
Department of the Navy 
Washington, D.C. 20360 

2 . Commander 1 

(Attn: W. C. Willis, PME-106-11) 

Naval Electronic Systems Command 
Department of the Navy 
Washington, D.C. 20360 

3 . Commander 1 

(Attn: W. R. Coffman, PME-106-16) 

Naval Electronic Systems Command 
Department of the Navy 
Washington, D.C. 20360 

4 . Library 2 

Naval Postgraduate School 

Monterey, California 93940 

5. Office of Research Administration (012A) 1 

Naval Postgraduate School 

Monterey, California 93940 

6. Professor John E. Ohlson 20 

Code 620L 

Naval Postgraduate School 
Monterey, California 93940 

7 . Commander 1 

(Attn: LT Gary W. Bohannon, G60) 

Naval Security Group 
3810 Nebraska Avenue, N.W. 

Washington, D.C. 20390 

8 . Commander 1 

(Attn: Robert S. Trible, 0252) 

Naval Electronic Systems Engineering Activity 
(NESEA) 

Patuxent River, Maryland 20670 



199 



U 1 9 1208 



DUDLEY KNOX LIBRARY - RESEARCH REPORTS 







5 6853 0 



057744 8 



‘■ wn a s 






